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EXPERIENCIA Y PRACTICAS El LOGO 



las órdenes: 


ON unos ejemplos simples 
vamos a profundizar en al- 
gunas primitivas del LOGO, 
Con las siguientes órde- 
nes la Tortuga dibujará cua- 
tro figuras geométricas. Las 
posiciones iniciales de cada 
figura las conseguimos con 


INICIALIZACION 

? PM 
? BP 

? PONCL 2 
? OT 


DIBUJOS FIGURAS 


PONXn 
PONY n 

Cambiamos la paleta de color con la 
primitiva: 

PONP ALETA n (n - 0 o n - 1) 

FIGURAS GEOMETRICAS 



? PONX -50 PONY 50 BL 
? REPITE 2 [GD 90 AV 100 GD 90 AV 60] 


? SL PONX -60 PONY 15 BL 
? REPITE 3 [GD 120 AV 80 J 
? SL PONX -20 PONY -5 BL 
? REPITE 36 [AV 6 GD 10] 

? SL PONX 10 PONY -20 BL 
? REPITE 4 [GD 90 AV 70] 


RELLENADO DE LAS FIGURAS 

? SL PONX -40 PONY 40 BL 
? PONCL 3 
? RELLENA 
? PONP ALETA 0 
? PONCL 2 

? SL PONX -50 PONY -20 BL 
? RELLENA 
? PONCL 1 

? SL PONX 18 PONY -1 BL 
? RELLENA 


Puedo variar el sentido de orientación de la 
Tortuga con otra nueva orden: PONRUMBO, 


5 



EXPERIENCIAS Y PRACTICAS EN LOGO 


? PONPALETA 1 
? PONCL 2 

? SL PONX 30 PONY -60 BL 
? RELLENA 

NOTA: Si tu versión LOGO no dispone 
de la primitiva PONPALETA, no teclees la or- 
den. 

El siguiente ejemplo dibuja en pantalla 
un cuadrado, que vamos rellenándolo de dife- 
rentes colores. 

Utilizamos aquí la orden ESPERA n para 
que observes que, tras rellenar la figura de un 
color, la Tortuga está unos segundos sin ac- 
tuar: fíjate que la orden en cuestión está des- 
pués de RELLENA. 

IN1CIALIZACION 

? PM 
? BP 
? SL 

? PONCL 2 
? OT 

DIBUJO 

? PONX -100 PONY 40 BL 
? REPITE 4 [GD 90 AV 100] 

RELLENADO 

? SL PONX -80 PONY 20 BL 
? REPITE 10 [PONCL AZAR 4 RELLENA 

ESPERA 15] 

Cuando se ejecuten estas órdenes no- 
sotros no sabremos qué sucesión de colores 
aparecerán, ya que no hemos fijado los colo- 
res, sino que los seleccionamos al azar. 

Cuando la velocidad de algún proceso 
que realizamos resulta demasiado rápida, no te- 
nemos tiempo de observar algo con deteni- 
miento, podemos intercalar en el programa la 
orden ESPERA n, donde n serán pulsaciones 
de reloj, y deberá ser un número entero o bien 
será redondeado. 

? ESPERA 1092 

Si compruebas el tiempo transcurrido 
en tu reloj verás que 1092 pulsaciones de re- 
loj corresponden a un minuto. 

? BP BL PONCL 1 
? REPITE 4 [AV 90 GD 90] 


? ESPERA 100 BP 
? REPITE 36 [AV 7 GD 10] 

? ESPERA 200 BP 

Ya hemos utilizado en varias ocasiones 
dos órdenes con las que podíamos posicionar 
a la Tortuga en cualquier zona de la pantalla 
sin. tener que variar su orientación y sin tener 
que hacerla avanzar o retroceder. 

Se trata de las órdenes: 

PONX y PONY 

Con estas dos órdenes podíamos variar 
la posición de la Tortuga, pero bien en una di- 
rección o en otra alternativamente. Es decir, 
podíamos primero desplazarla en el sentido 
de las abscisas y luego en el sentido de las or- 
denadas, por ejemplo. 

Existe otra orden en la cual se dan las 
coordenadas re/, a la vez. Esta orden es: 

PONPOS [X Y] 

PONPOS es la abreviatura de PON PO- 
SICION. 

Si, por ejemplo, damos la orden: 


PONPOS [90 40] 
Nos aparecerá lo siguiente: 



r 



Figura 2. 


La Tortuga se posiciona en las coorde- 
nadas indicadas, y a pesar de que se ha mo- 
vido en diagonal, su rumbo no ha variado. 

Si hasta ahora, cuando queríamos posi- 
cionar la Tortuga en una determinada posición 
de la pantalla, utilizábamos dos órdenes, aho- 
ra podemos hacer lo mismo, pero utilizando 
sólo una orden. 

Si en esta orden se utilizan decimales, 
los dos primeros se toman en cuenta y el ter- 
cero será redondeado. 


En una sola orden puedo englobar más de una. 
Este es el caso de la orden PONLAPIZ . 


6 



Recuerda que la Tortuga, si está en la 
posición central, tiene de coordenadas (0,0) y 
que los desplazamientos hacia la derecha, en 
el sentido de las x, o hacia arriba en el senti- 
do de la y, serán positivos. Hacia la izquierda 
en x, o hacia abajo en y, serán negativos. 

Teclea e introduce las siguientes órde- 
nes y lo verás: 

INICIALIZACION 


de la pantalla dando las coordenadas corres- 
pondientes. Cambiemos de rumbo. 

Introduce las siguientes órdenes: 

INICIALIZACION 

? BP BL 
? PM MT 
? PONFONDO 1 
? PONCL 2 


? PM 
? BP 
? OT 

? PONFONDO 1 
? PONCL 2 

DIBUJO 

? SL PONPOS [-159 124] 

? BL PONPOS [160 125] 

? SL PONPOS [-159 125' 

? BL PONPOS [160 -124' 


PUNTOS CARDINALES 

? PONRUMBO 90 AV 100 
? CENTRO 

? PONRUMBO 180 AV 100 
? CENTRO 

? PONRUMBO 270 AV 100 
? CENTRO 

? PONRUMBO 360 AV 100 
? CENTRO 
? PONCL 3 

? PONRUMBO 0 AV 100 


Obtendrás una pantalla como ésta: 



Figufcí 3. 

En este caso, los valores que hemos 
dado a la orden PONPOS sólo son válidos si po- 
sees un ordenador que tenga una resolución 
gráfica de 320 x 250 puntos o pixels. Si no es 
así, cambia estos valores limitándote a la reso- 
lución de tu ordenador. 

Si cuando introducimos la orden PON- 
POS [X Y] tenemos el lápiz alzado, nos situa- 
mos en la posición elegida sin dejar rastro; si 
lo bajamos, dejaremos una línea pintada des- 
de donde nos encontrábamos hasta el punto 
elegido [X Y], 

Ya sabemos acceder a cualquier punto 


La Tortuga ha ido dibujando hacia los 
cuatro puntos cardinales; con rumbo 90 hacia 
el este, rumbo 180 hacia el sur, rumbo 270 ha- 
cia el oeste y rumbo 360 hacia el norte. 



Figura 4 , 

PONRUMBO n 

Practicando con esta orden apreciarás 
la diferencia existente con las órdenes GD n y 
GI n, ya que el movimiento de la Tortuga con 
estas dos órdenes es relativo respecto a su 
orientación; en cambio, con PONRUMBO el 
movimiento de la Tortuga es absoluto. 

Aquí tienes dos ejemplos que te ayuda- 
rán a ver mejor cómo funciona esta nueva or- 
den: 


Puedo dar diferentes colores al lápiz , al fondo, al 
texto y al fondo del texto - 
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EXPERIENCIAS Y PRACTICAS EN LOGO 


LINEAS RADIALES 

INICIALIZACION 

? PM 
? BP 
? OT 

? PONFONDO 1 


DIBUJO 

? REPITE 100 [PONRUMBO AZAR 360 PONCL 
AZAR 4 AV AZAR 100 CENTRO] 

Con estas órdenes obtenemos un con- 
junto de líneas que parten todas del centro. 
Cada una de ellas tiene tanto una longitud 
como un color elegido al azar. De igual mane- 
ra, cada una parte del centro hacia una direc- 
ción que desconocemos, ya que se determina 
el rumbo de la Tortuga de una forma aleato- 
ria, pudiendo oscilar entre 0 y 359 grados. 

INICIALIZACION 

? PM 
?BP 
? OT 

? PONFONDO 0 
? SL 


DIBUJO 


? PONX -58 
?BL 

? REPITE 36 [AV 10 GD 10] 

? SL CENTRO 
? BL RELLENA 
? PONCL 3 

? REPITE 50 [PONRUMBO AZAR 360 AV 50 

CENTRO] 

? PONCL 2 

? REPITE 50 [PONRUMBO AZAR 360 AV 40 

CENTRO] 

PINTAR PUNTOS 


PUNTO [X Y] 

Ejemplo: 

PUNTO [80 62] 
PUNTO [80 -62' 
PUNTO [-80 62 : 
PUNTO r -80 -62] 


Los puntos se pintan en la pantalla sin 
que la Tortuga se mueva, 



figura S. 

Recordemos que el punto [0 0] es el 
centro de la pantalla. 

Si damos a X un valor superior a -159 ó 
160 el punto aparecerá o no marcado, depen- 
diendo del estado en que se encuentra la pan- 
talla. Recuerda las primitivas: ENLAZA, LIMI- 
TA y VENTANA. 

Lo mismo ocurrirá con los valores -124 
y 125 de la coordenada Y, 

Estos valores de X e Y que hemos es- 
pecificado son válidos en pantallas con reso- 
lución 320 x 250 puntos. 

Tanto para el valor de X como Y se tie- 
nen en cuenta dos decimales. 

? PONCL 2 
? PUNTO [30 50] 

El color del punto dibujado es el que en 
ese momento tiene el lápiz. 

? BP 

? SUBELAPIZ 
? PONCL 3 
? PUNTO [50 40] 

Observa que, aunque el lápiz está alza- 
do, el punto se ha marcado, 

? BP 

? PONLAPIZ [SL 3 1] 

? PUNTO [50 40] 

En este caso hemos introducido una 
nueva orden: 

PONLAPIZ 

Esta orden admite tres parámetros que 
deben ir encerrados entre corchetes. Estos 
son: 


Algunas versiones me permiten cambiar el color 
de la Tortuga . 
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— Estado del lápiz (SL, BL, IL, GOMA). 

— Color del lápiz. 

— Paleta de color. 

Esta orden nos permite englobar a tres 
en una. Así nos evitamos el tener que dar más 
órdenes de lo necesario. 

La siguiente orden: 

PONLAPIZ [SL 2 0] 

Equivale a las órdenes: 

SL 

PONCL 2 
PALETA 0 

Por ejemplo, con la orden: 

PONLAPIZ [SL 1 1] AV 100 

Avanzamos sin pintar. 

Y con la orden: 

PONLAPIZ [BL 1 0] AV 100 

Pintamos una línea. 

Esta orden no la poseen todas las ver- 
siones del LOGO. Sí existe en el LOGO de los 
PC-eompatibles. 

Aquí tienes las órdenes que dibujan 
una habitación en tres dimensiones gracias a 
un cierto sentido de profundidad que le he- 
mos dado. 


INICIALIZACION 

? PM 
? BP 
? SL 
? OT 

? PONCL 1 

PRIMER PLANO 

? PONPOS [100 -30] 

? BL 

? REPITE 2 [AV 120 GI 90 AV 200 GI 90] 

SEGUNDO PLANO 

? SL 

? PONPOS [32 15] 

? BL 

? REPITE 2 [AV 30 GI 90 AV 65 GI 90] 

? PONPOS [100 -30] 

? AV 120 PONPOS [32 45] 


? GI 90 AV 65 
? PONPOS [-100 90] 
? GI 90 AV 120 
? PONPOS [-33 15] 


ALFOMBRA 


? 

? 

i 

9 

■ 

9 

* 

9 

p 

9 

k 

9 

p 

? 


SL PONPOS [-20 15] 


BL PONPOS 


20 51 PONPOS 


PONPOS [-55 -20] PONPOS 
SL PONPOS [-12 2] 


BL PONPOS 


[17 2 


PONPOS [-44 -17] PONPOS 


PONPOS 


SL AV 4 BL 
PONCL 2 RELLENA 


[55 -20] 
[-20 5] 

[44 -17] 
[-17 2] 


PARED TRASERA 


? SL RE 40 BL 
? PONCL 15 
? RELLENA 
? PONCL 13 AV 10 
? SL GI 90 AV 35 
? BL GI 90 AV 9 


CUADRO 


? PONCL 6 SL 
? PONPOS [-80 
? BL 

? PONPOS [-80 
? PONPOS [-50 
? PONPOS [-50 
? PONPOS [-80 
? SL GD 45 AV 
? RELLENA 


10 ] 

50] 

35' 

20 ' 

10 ' 

4 


Si quieres, puedes ir completando la ha- 
bitación dibujando alguna cosa más en su in- 
terior. Puedes también cambiar los colores y 
las dimensiones. 


Colores II 

Con respecto al color, ya vimos dos de las ór- 
denes más importantes que el Logo posee. Eran 
PONCL y PONFONDO. Con ellas cambiamos el color 
tanto del lápiz de la Tortuga como el del fondo de la 
pantalla. Vimos también los cuadros con los códigos 
de colores que poseen diferentes ordenadores. 


Hay órdenes como PUNTO, que no las realiza 
la Tortuga. 


EXPERIENCIAS Y PRACTICAS EN LOGO 


En esta ocasión vamos a completar el tema del 
color, explicando otra serie de órdenes que el Logo 
posee. 

Existe otra orden que nos permite cambiar el 
color del texto; se trata de la orden PONCOLORTEX- 
TO, y su forma abreviada es PONCT. 

Dependiendo del ordenador, esta orden pre- 
senta algunas diferencias. Vamos a verla en particu- 
lar para cada uno de ellos. 

PC-COMPATIBLES 

PONCT n 

Pone el color al texto que determina el valor 

de n. 

Esta orden puede escribirse tanto de la forma 
completa como de la forma abreviada: 

MSX 

PONCT n 
PONCT lista 

Si la orden se da de la forma PONCT n, el co- 
lor del texto aparecerá, desde el momento que se da 
la orden, del color que determina n. 

Si en lugar de dar sólo un valor damos dos, es 
decir, utilizamos la segunda forma, el primer valor 
nos determinará el color del texto y el segundo el co- 
lor del fondo del texto. 

Esta orden sólo puede darse en este caso, de 
forma abreviada. 

SPECTRUM 

PONCT n m 

El color del fondo del texto será el que deter- 
mina n, y el color del texto será el que determina m. 

En este ordenador, la orden se tiene que dar 
también de la forma abreviada. 


Otras órdenes de color 

Existe en los PC-compatibles una forma para 
dar color al fondo del texto, al igual que lo hacíamos 


en los otros dos casos. Esto lo conseguimos con la 
orden: 

PONFONDOTEXTO n o bien 
PONFT n 

Esta orden pone el color del fondo de los ca- 
racteres que aparecen en la pantalla, según el valor 
de n. 

En los MSX podemos variar el color de la for- 
ma de la Tortuga si damos la orden: 

PONCF n 

Dependiendo del valor de n, la Tortuga nos 
aparecerá de un color o de otro. 

En los SPECTRUM podemos variar el color del 
borde de la pantalla. Esto lo conseguimos con la or- 
den: 

PONCOLORBORDE n 
o bien 
PONCB n 

El borde se pondrá del color que viene dado 

por n. 

En todas estas órdenes que hemos tratado, el 
valor de n ha de ser uno que corresponda al cuadro 
de código de colores que vimos anteriormente, 



Mensajes Logo 


- NO SE QUE DEBO HACER CON o DIME 
QUE HACER CON. 

No se ha precisado el dato que debe recibir 
la orden o sentencia especificada. 

- FALTAN DATOS PARA o FALTAN DATOS 
EN. 


Indica que la orden escrita precisa dar más 
datos para ejecutarse. 


- ERROR EN EL SISTEMA LOGO. 

La carga del Logo no ha sido correcta. Hay 
que repetir la carga. 

- ALTO o INTERRUMPIDO. 


Los mensajes que el LOGO me da varían según 
el ordenador y la versión con la que estemos 
trabajando , 
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Se ha detenido la ejecución de un proceso. 

- ... ES UNA PRIMITIVA. 

Se ha utilizado como dato el nombre de algu- 
na primitiva, 

- PAUSA. 

Por pulsar F5 la ejecución se detiene, Se pue- 
de continuar tecleando CONTINUA. {Este mensaje 
sólo aparece en las versiones de algunos ordenado- 
res en concreto, como por ejemplo, en los PC- 
compatibles.) 


Cuadro resumen 

- PONFOS [X Y], 

La Tortuga se sitúa en el punto de coordena- 
das que determinan los valores de X e Y, 

- PONRUMBO n. 

* 

La orientación de la Tortuga variará hacia la 
dirección que determina n, que vendrá expresada en 
grados. 

- PUNTO [X Y]. 

yr 

« JT ’ 

/ 

Se dibuja un punto en la posición que deter- 
minan las coordenadas X e Y permaneciendo la Tor- 
tuga en el lugar en que se encontraba. 

— PONLAPIZ [estado lápiz color paleta]. 

Define el estado del lápiz (SL, BL, IL o GOMA), 
el color y la paleta, respectivamente. 

- PONCOLORTEXTO n. 

PONCT n. 

PONCT lista, 

PONCT n m. 

Pone del color que determina n el texto, si sólo 
se especifica un valor. Si se especifica un segundo 
valor, corresponderá ai color del fondo del texto. 

- PONFONDOTEXTO n. 

PONFT n, 

Pone del color que determina n, el fondo del 
texto, (Válido para ordenadores PC-compatibles.) 


- PONCOLORBORDE n. 

PONCB n. 

Pone el borde de la pantalla del color que de- 
termina n. (V álido para ordenadores Spectrum.) 

- PONCF n. 

i 

Pone del color que determina n, el color de la 
forma de la Tortuga que tenemos definida. (Válido 
para ordenadores MSX.) 


Ejercicios 

1 . Utilizando la orden PONFOS [X Y], intenta 
hacer el siguiente dibujo: 



Figura 6. 

2. ¿Hubiese aparecido el mismo dibujo, si en 
vez de dar ¡a orden GD 120 hubiésemos 
dado la orden PONRUMBO 120? 

3. Practica con la orden PONRUMBO dibujan- 
do la siguiente figura: 



Dependiendo del ordenador, la resolución gráfica 
es distinta . 





EXPERIENCIA T PRACTICAS EN 10G0 



4. Haz el siguiente dibujo: 



Figura 8. 

5, Son correctas las siguientes órdenes: 

- PONPOS [AZAR 100 30] 

- PUNTO (90 20) 

- PONRUMBO AZAR 200 AV 40 GD 60 RE 
100 

- PONLAPIZ [GOMA 2] 

- PONCT 3 

- ESPERA AZAR 3000 

i Solución a los ejercicios 


INICIALIZACION 
? PM 
? BP 
? OT 
? 5L 

? PONFONDO 9 
? PONCL 2 

DIBUJO TRIANGULOS 
? PONPOS [70 52] 

? BL 

? REPITE 3 [AV 40 GD 120] 
? SL 

? PONPOS [70 -52] 

? BL 

? REPITE 3 [AV 40 GD 120] 
? SL 

? PONPOS [-70 52] 

? BL 

? REPITE 3 [AV 40 GD 120] 
? SL 

? PONPOS [-70 -52] 


? BL 

? REPITE 3 [AV 40 GD 120] 

TRAZADO DE LAS LINEAS 
? SL 

? PONPOS [70 52] 

? BL 

? PONPOS [-70 -12] 

? SL 

? PONPOS [-70 52] 

? BL 

? PONPOS [70 -12] 

2: 

No, ya que pintaríamos siempre en la 
misma dirección, La Tortuga estaría siempre 
orientada hacía la misma dirección (120 gra- 
dos) y lo que se tiene que conseguir es que, 
después de avanzar, gire 120 grados. 


INICIALIZACION 
? PM 
? BP 
? SL 
? OT 

? PONCL 1 

DIBUJO DE LA ESPIRAL 
? PONPOS [-100 50] 

? BL 

? REPITE 4 [REPITE 27 [AV 4 GD 10] GD 
90] 

DIBUJO DE LAS TRES LINEAS 
? SL 

? PONPOS [12 -35] 

? BL 

? PONRUMBO 310 
? AV 160 SL 
? PONPOS [24 -35] 

? BL 

? PONRUMBO 310 
? AV 160 SL 
? BL 

? PONRUMBO 310 
? AV 160 

4 : 

INICIALIZACION 
? PM 


Hay ordenadores en los que sólo se pueden dar 
dos colores por cada matriz de 8 x 8 puntos . 
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◄ 


? SL 
? BP 
? OT 

CENTRANDO DIBUJO 

? GI 90 AV 35 
? GD 90 RE 60 
? BL 

DIBUJO 

? REPITE 2 [AV 10 GD 90 AV 70 GD 90] 
? GI 90 RE 5 GD 90 
? SL AV 10 BL 
? AV 5 GD 90 AV 60 
? GD 90 AV 5 RE 5 
? GD 90 AV 15 GD 90 
? AV 65 GD 45 AV 5 
? GI 135 AV 37 RE 37 
? GD 70 AV 10 GD 20 
? AV 2 GI 90 AV 28 
? RE 28 GD 115 AV 30 
? SL CENTRO 
? RE 45 GI 90 AV 15 
? GD 90 BL AV 65 
? GI 45 AV 5 GD 70 
? AV 10 GI 20 AV 2 
? GI 30 AV 30 GD 115 
? AV 55 


CRUZ 

? RE 30 GI 90 AV 10 
? GI 90 AV 5 GD 90 
? AV 5 GD 90 AV 5 
? GI 90 AV 7 GD 90 
? AV 5 GD 90 AV 7 
? GI 90 AV 5 GD 90 
? AV 5 GD 90 AV 5 
? GI 90 AV 10 
? RE 4 GD 90 SL 
? AV 2 BL RELLENA 


- PONFOS [AZAR 100 30]: INCORRECTA. La 
orden PONPOS no admite como parámetro 
la orden AZAR. 

- PUNTO (90 20): INCORRECTA. En lugar de 
paréntesis deben ir corchetes. 

- PONRUMBO AZAR 200 AV 40 GD 60 RE 100: 
CORRECTA. 

- PONLAPIZ [GOMA 2]: INCORRECTA. Falta 
un parámetro; esta orden debe contener 
siempre tres datos. 

- PONCT 3: CORRECTA. 

- ESPERA AZAR 3000: CORRECTA, 



Si no posees un monitor o televisor en color , 
los colores aparecen como diferentes intensida- 
des de los que tenga tu monitor. 


En el Spectrum, la forma de ocultar la Tortu- 
ga no es con la orden OT, sino con la orden ET (es- 
conde tortuga). 


¡i La orden PONPALETA sólo la posee el logo 
de los PC-compatibles. 

En los ordenadores PC compatibles cuando 
doy la orden PM, a la vez que la pantalla se sitúa 
en el modo mixto, me aparece la Tortuga. 
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MANEJO DE SPRITES Y ELEMENTOS GRAFICOS 


MOVIMIENTO 
DE FIGURAS COMPLEJAS 


ASTA ahora sólo hemos he- 
cho programas de movi- 
miento con figuras com- 
puestas de un solo carácter, 
Tal es el caso de los progra- 
mas que vimos de la estre- 
lla fugaz o de la pelota que 
va rebotando contra las pa- 
redes. 

En este tomo veremos cómo realizar 
movimientos con figuras compuestas por más 
de un carácter. Dichos caracteres pueden ser 
definidos por el usuario o bien caracteres ya 
predefinidos dentro del propio ordenador. 

En tomos anteriores vimos que había di- 
versos tipos de movimiento según la dirección 
y el sentido que llevase el carácter al mover- 
se por la pantalla. Dichos tipos de movimiento 
son aplicables también a las figuras formadas 
por más de un carácter, pero al ser estas figu- 
ras más complicadas, el movimiento se vuelve 
más complejo, 

Los tipos de movimientos posibles que 
vimos eran: 

— Movimiento horizontal De izquierda 
a derecha o de derecha a izquierda, 

— Movimiento vertical. De arriba a 
abajo o de abajo a arriba. 

— Movimiento diagonal. 

— Movimiento circular. 





Fig. 1. Definición de un hombrecillo de m solo carácter . 


— Movimiento uniformemente acelera- 
do o decelerado. 

Estudiaremos todos estos tipos de mo- 
vimiento para .figuras complejas, pero antes 
vamos a ver algunas figuras complejas que po- 
demos dibujar en nuestro ordenador, 

Cuando queremos hacer que un hom- 
bre se mueva por la pantalla tenemos dos po- 
sibles opciones Una es definir dicho hombre 
en un solo carácter (ver fig. 1). La otra es de- 
finirlo mediante varios caracteres. De esta úl- 
tima manera el hombrecillo estará mejor defi- 
nido y se parecerá más a un hombre de ver- 
dad (ver fig. 2). 



Fig 2. Definición de un hombrecillo utilizando tres caracteres t 
uno debajo de otro. 
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Otra de las maneras de definir figuras 
más complejas es utilizando los caracteres que 
ya tiene definidos el ordenador, Conjugando 
varios de dichos caracteres, se pueden crear 
figuras bastante complejas y vistosas. Como 
ya vimos en tomos anteriores, todos los orde- 
nadores tienen, aparte del grupo de caracte- 
res normales, un grupo de caracteres llama- 
dos semigráficos. Con estos caracteres se pue- 
den realizar figuras bastante buenas sin nece- 
sidad de tener que estar definiendo nuestros 
propios caracteres. En la figura 3 vemos algu- 
nas figuras que pueden realizarse con los ca- 
racteres normales del ordenador. En la núme- 
ro 4 vemos algunas figuras que pueden reali- 
zarse con los caracteres semigráficos. 



F)g. 3. Estas son algunas de las figuras que podemos definir con 
los caracteres de nuestro ordenador. 



Fig 4, Estas son algunas de las figuras que podemos dibujar 
con los caracteres semigráficos de nuestro ordenador. 

Como los caracteres semigráficos va- 
rían de unos ordenadores a otros, en la figura 
5 os mostramos las tablas de dichos caracte- 
res en todos los ordenadores. 

Una vez que hemos visto cómo son las 
iiguras complejas y cómo construirlas, vamos 
a entrar de lleno en la materia que nos inte- 
resa. 
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SPECTRUM 


Fig. S. Estos son los caracteres senugráficos de los distintos 
ordenadores. 


i Movimiento horizontal de figuras 
complejas 

Este tipo de movimiento es casi igual 
que el que se vio para figuras compuestas de 
un solo carácter. La única diferencia estriba 
en que, como son más de un carácter los que 
configuran el objeto a mover, habrá que tener 
en cuenta todos y cada uno de los caracteres 
por separado. 

El programa 1 nos muestra un movi- 
miento horizontal de izquierda a derecha muy 
sencillo. 

Las modificaciones necesarias para que 
este programa funcione en ordenadores dis- 
tintos del IBM y del AMSTRAD son Jas siguien- 
tes: 

10 rem 

20 REM * MOVIMIENTO DE UN GUSANO DE t 

30 REM * IZQUIERDA A DERECHA POR LA * 

40 REM * PANTALLA. t 

50 RETI ****************************** 

60 REM 

70 REM *** DEFINICION DEL SUSANO *** 

BO REM 

90 LET Ai®” ooqqoO " 

100 REM 

110 REM *** MOVIMIENTO DEL GUSANO *** 

120 REM 
130 CLS 

i 40 FDR 1 = 1 TO 25 

150 LOCATE 10 s 1 

160 FftlNT Aí 

170 FOR J"1 TO 100 

ISO NEXT J 

190 NEXT I 

200 END 


COMMODORE 

130 PRINT M < SHIFT-HOME> 11 
150 LET Y=10:LET X=I:GOSUB 9500 

Para que este programa funcione es ne- 
cesario unirlo a la rutina LOCATE PARA COM- 
MODORE que se dio en el tomo 1 y que vol- 
vemos a repetir en éste. 

MSX SPECTRUM 

150 LOCATE 1,10 150 PRINT AT 10,1; 

El funcionamiento es muy sencillo, por^ 
que la figura está definida en una sola línea. 
Cuando la figura tiene diversas partes, que se 
colocan en líneas distintas, el movimiento se 
complica un poco más. 
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En este primer programa la técnica de 
dibujo y borrado no tiene ninguna dificultad. 
La única complicación está en la forma de 
borrar. Esto se consigue poniendo un espacio 
en blanco al final del gusano. Cuando tenga- 
mos que mover el gusano de una posición n 
de la pantalla a otra posición n + 1, el espacio 
en blanco borrará el último carácter de figura 
anteriormente impresa en la pantalla, 

Un ejemplo más complicado, en el cual 
puede verse cómo el gusano va reptando, es 
el que aparece en el programa 2. 


rem mtttmtttmtmttmtMimtmt 

REM * I1ÜVI MIENTO D£ 

: UN GUSANO 

REPTANTE i 

REM * DE IZQUIERDA 

A DERECHA 1 

DE LA PAN * 

REM * TALLA. 


t 


50 REM **t(tt***f*t*t*t*t*t*t**ttf*ttft*t» 

60 REM 

70 REM (¡** DEFINICION DEL GUSANO *** 

SO REM 

90 LET oooooO" 

100 LET B*=" odooO" 

1 ÍO REM 

120 REM *** MOVIMIENTO DEL GUSANO **» 

130 REM 

140 CLS 

ISO FOR 1 = 1 TO 25 
1*0 LOCATE 10,1 
170 PRINT A* 

ISO FOR J=1 TO 100 
190 NEXT J 
200 LOCATE 10,1 
210 PRINT B* 

220 FOR J=1 TO 50 
230 NEXT J 
240 NEXT I 
250 END 

Las modificaciones que hay que tener 
en este segundo programa son las siguientes: 

COMMODORE 

140 PRINT "<SHIFT-HOME>“ 

160 LET X=I:LET I=10:GOSUB 9500 
200 GOSUB 9500 

También hay que incluir la rutina LO- 
CATE PARA COMMODORE que se dio en el 
primer tomo y que os volvemos a dar en éste 
en la sección de TRUCOS DE PROGRAMA- 
CION. 

MSX SPECTRUM 

160 LOCATE 1,10 160 PRINT AT 10,1; 

200 LOCATE 1,10 200 PRINT AT 10,1; 

Con este segundo programa ya hemos 
entrado un poco en las nociones de la anima- 


ción. Hasta ahora habíamos visto y realizado 
programas de movimiento, pero en ellos había 
muy poco de animación. Al trabajar con figu- 
ras más complejas la animación resulta más 
sencilla y más atractiva. 

Este programa funciona de una forma 
muy parecida. al anterior, la única diferencia 
se encuentra en la contracción que hace el gu- 
sano cada vez que se mueve una posición a la 
derecha. 

Esta contracción del cuerpo del gusano 
se consigue, como podéis ver en el listado del 
programa, imprimiendo encima del gusano de 
tamaño normal otro gusano más pequeño. El 
bucle de retardo que hay entre las líneas 220 
y 230 hace que esta contracción sea visible. Si 
este bucle no estuviese, no se podría apreciar 
dicho movimiento. 

Estos dos primeros programas no tie- 
nen ninguna dificultad porque, como hemos 
dicho antes, el movimiento se realiza en una 
sola línea. El programa 3 simula el movimien- 
to de un ciempiés, que ocupará tres líneas por 
la pantalla de derecha a izquierda. 



10 REM ttt**tt***«»***«*****Mt**tt*t* 

20 REM * MOVIMIENTO DE UN CIENPIEB DE t 
30 REM * DERECHA A IZQUIERDA DE LA * 



40 REM 

1 PANTALLA. 




t 


50 REM 

***** ****** ***************** tttt 



60 REM 









70 REM 

tí* DEFINICION DEL CIENPIEÍ 

3 *** 



SO REM 

90 LET 

100 LET 

1 10 LET 

AÍ-" í í < í < 

B*=" <00000 

Cí=“ < í < ( í 

|fe 








u 








II 





120 REN 

130 REM **» MOVIMIENTO DEL C1ENPIES *«* 


140 REM 


ISO CLS 


160 FOR 1=25 

TO 1 STEP -1 

170 LOCATE 9- 1 

180 PRINT 

3 - 

A* 


190 LOCATE 10,1 
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200 

210 

PRINT 

LOCATE 11,1 

220 

PRINT D& 

230 

FPR J=1 TO 100 

240 

NEXT J 

250 NEXT I 

260 s 

ND 


Como siempre, para aquellos usuarios 
de ordenadores distintos del IBM y del Ams- 
trad se incluyen las modificaciones. 


COMMODORE 

150 PRINT “<SHIFT-HOME>" 

170 LET X=I:LET Y=9:GOSUB 9500 
190 LET Y=10:GOSUB 9500 
210 LET Y-ll:GOSUB 9500 


Incluyendo la rutina LOCATE PARA 
COMMODORE. 


MSX 

170 LOCATE 1,9 
190 LOCATE 1,10 
210 LOCATE 1,11 


SPECTRUM 

170 PRINT AT 9,1; 
190 PRINT AT 10,1; 
210 PRINT AT 11,1; 


Como puede apreciarse, en este último 
programa la forma de imprimir figuras que 
ocupen más de una línea es imprimirlas línea 
a línea. 

Hay que tener mucho cuidado con el ta- 
maño de estas figuras, pues si las hacemos de- 
masiado grandes, el programa se volverá muy 
lento y perderá toda su riqueza. 

Cuando realices tus propios programas 
de movimiento con figuras complejas ten en 
cuenta que, si bien el programa por sí sólo 
puede ser lo suficientemente veloz como para 
necesitar un bucle de retardó, cuando estos 
programas pertenezcan a otro programa más 
grande, dicho bucle de retardo no a va ser ne- 
cesario, pues ese tiempo muerto se utilizará 
para mover otras figuras. 

Por fin, y ya para terminar con el movi- 
miento horizontal de figuras complejas, vamos 
a ver un programa que nos dibuja un ciem- 
piés, pero moviendo las patas. 

io rem tftm**m*t*t*****mtf*mt*** 

20 REM * MOVIMIENTO DE UN CIENPIES QUE t 

30 REM * MUEVE LAS PATAS Y SE DESPLAZA * 

40 REM * DE DERECHA A IZQUIERDA t 

so rem 

60 REM 

70 REM *** DEFINICION DEL CI ENRIES *** 

SO REM 


«ÍO REM *** POSICION NUMERO 1 *** 
100 REM 

110 DIM A*(3)!DIM B*<3) iDIM C*<3) 


120 LET A*<n= tF t c< ( í 

41 

130 LET <00000 


140 LET C < f < í 

u 



150 REM 

160 REM «ti POSICION NUMERO 2 

I7fl PPM 

*** 



190 LET HUI 

u 



200 LET Bfc C2> = "=00000 

H 




210 LET Cf(2>=" U III 





220 REM 





230 REM *** POSICION NUMERO 3 

ttt 



¿‘t'J nuil 

260 ¡LET > > 1 > 5 

U 






270 LET B*Í3Í=“ >ODOOG 

■i 




2BO LET Cí (3)=“ >) m 







290 REM 





300 REM *** MOVIMIENTO DEL CIEMPIES *** 
310 CLB 



■M 

330 FOR 1-22 TO í STEP -3 


340 

FOR J=3 TO 1 STEP -1 

350 

LOCATE 9,I+J 



360 PRINT A*fJÍ 

370 LOCATE i0 9 l+J 

300 PRINT BffJ) 

390 LOCATE U , í +3 

400 PRINT CtíJÍ 

410 POR K-l TO 100 

420 NEXT K 

430 NEXT J 

440 NEXT I 

4S0 END 


Las modificaciones para MSX, COM- 
MODORE y SPECTRUM son las siguientes: 

COMMODORE 

310 PRINT ‘'<SHIFT-HOME>“ 

350 X==I+}:Y=9:GOSUB 9500 
370 Y=10:GOSUB 9500 
390 Y= 1 1 :GOSUB 9500 

MSX 

350 LOCATE I+J,9 
370 LOCATE I+J,10 
390 LOCATE I+J.ll 

SPECTRUM 

110 DIM A$(3,7):DIM B$(3,7):DIM C$(3,7) 
350 PRINT AT,I+J; 

370 PRINT AT 10,1+J; 

390 PRINT AT ll.í+J; 

Este programa, por ser algo más compli- 
cado, vamos a explicarlo línea a línea. 
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Fig. 7. Estas son las tres posiciones distintas que configuran el 
movimiento del ciempiés, 


de retardo para hacer que el movimiento no 
sea muy rápido. 

Línea 430. Aquí se termina el segundo 
bucle, el que dice qué figura hay que impri- 
mir. 

Línea 440. Se cierra el bucle principal. 

Línea 450. Termina el programa. 

Si te fijas bien en el programa verás que 
tiene un pequeño error, Este consiste en que 
cada movimiento completo del ciempiés no se 
compone de tres, sino de cuatro movimientos. 
El orden de las figuras que realizan estos cua- 
tro movimientos son: 


Línea 110. Dimensiona tres vectores 
(variables alfanuméricas de una dimensión) 
en los que se almacenarán las distintas posi- 
ciones del ciempiés. 

Líneas 120, 130 y 140. En estas líneas 
se almacena la primera posición del movi- 
miento del ciempiés. A cada línea de la figura 
le correponde una variable, Lo hemos hecho 
de esta manera para que a la hora de realizar 
el movimiento el programa quede más sen- 
cillo. 

Líneas 190, 200 y 210. Se almacena la 
segunda posición del movimiento del ciem- 
piés. 

Líneas 260, 220 y 280. Se almacena la 
tercera y última posición del ciempiés. 

Línea 330. Comienza el bucle principal 
del movimiento, El incremento de dicho bucle 
está puesto a tres porque tres son los movi- 
mientos posibles. 

Línea 340. En esta línea empieza un se- 
gundo bucle que controlará cada uno de los 
tres movimientos, 

Línea 350. Colocamos el cursor en la 
primera de las líneas donde tenemos que im- 
primir la figura. 

Línea 360. Imprimimos la primera línea 
de la figura. En cada vuelta del bucle de la lí- 
nea 340, como se va variando la variable nu- 
mérica J, se imprime una primera línea de la 
figura distinta. Con esto se consigue el efecto 
de animación. 

Línea 370. Se coloca el cursor en la si- 
guiente línea para imprimir la segunda línea 
de la figura. 

Línea 380, Se imprime la segunda línea 
del ciempiés. 

Línea 390. Se coloca el cursor en la ter- 
cera línea. 

Línea 400. Y se imprime la última línea 
que configura al ciempiés. 

Líneas 410 y 420. Se realiza un bucle 


Movimiento n.° 1 = Figura 1 . 

Movimiento n.° 2 = Figura 2. 

Movimiento n. e 3 = Figura 3, 

Movimiento n,° 4 = Figura 2. 

Si te fijas en la figura 8 verás cuáles son 
estas cuatro posiciones. 
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Fig. 8 : Estas son ¡as 4 posiciones que tendría que tener el mo- 
vimiento del ciempiés. 

¿Serías capaz de modificar este último 
programa para que realizase el movimiento de 
esta nueva forma? 

Las modificaciones que tendrías que 
hacer, línea a línea, son las siguientes: 

110 DIM A$(4):DIM B$(4): DIM C$(4) 

291 REM *** POSICION NUMERO 4 *** 

292 REM 

293 LET A$(4)=A$(2) 

294 LET B$(4)=B$(2) 

295 LET C$(4)=C$(2) 

296 REM 

330 FOR 1=21 TO 1 STEP -4 

340 FOR j=4 TO 1 STEP -1 

Los usuarios del SPECTRUM tendrán 
que cambiar la línea 110 por: 

110 DIM A$(4,7):DIM B$(4,7):DIM C$(4,7) 

Para el resto de los ordenadores no 
hace falta realizar ninguna modificación. 
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TRUCOS Y RUTINAS BASICAS 



OMO ya hemos visto mu- 
chas veces en tomos ante- 
riores, la presentación de 
ios programas de cara al 
usuario, aunque éste sea 
uno mismo, es muy impor- 
tante. Es necesario que 
nuestros programas sean lo 
más agradables posible a la vista. Con ello lo- 
graremos que el usuario de dicho programa 
esté más a gusto. 

Los programas que aparecen a conti- 
nuación son una serie de rutinas que nos per- 


mitirán imprimir el mensaje PULSA UNA TE- 
CLA de una forma más elegante y atractiva de 
lo que es usual. 


Impresión del mensaje 'pulsa 
una tecla’ 

Nuestro primer programa imprime la 
frase PULSA UNA TECLA, de forma que esté 
parpadeando continuamente. 






5001 REM * 

« 




5002 REM * 

<« PULSA UNA TECLA 

CON PARPADEO »> i 





5003 REM * 


1 





5004 REM t VALIDA PARA M5X f AM5TRAD, CQMMODQRE, IBM Y SPECTRUM * 

y&M K©' Vuú tí IhvqkmGsQ ^ 



5006 REM 

5007 REM 

5008 REM 

5009 REM 

5010 REM 

5011 REM 

5012 REM 

5013 REM 
501 ^ REM 


* VARÍ ABLES QUE HAY QUE PASARLE A LA RUTINA 

* — 

* 

* 

* 
t 

* LA SUDRUTINA NÚ RETORNA NINGUN VALOR 

* 


X = COLUMNA DONDE SE POS I CLONARA EL MENSAJE 
Y *= FILA DONDE SE POSICIQNARA EL MENSAJE 







50 16 REM 

* 







50 i 7 REM 

f 







5018 REM 

* 







5019 REM 

f 


5020 REM * K 

5021 REM * Aí 

5022 REM « L 


* CONTADOR DE BUCLE 

- CONTADOR DE BUCLE 
" CONTADOR DE BUCLE 
» ’ PULSA UNA TECLA* 

- LONGITUD DE A* 


* 

* 

* 

* 

* 

t 

* 

t 

* 

t 

f 

t 

% 

t 

* 

* 

* 
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5023 REM * * 

5024 REF1 ******** ** tt ******* ****** ****************************** 




5025 REP1 











502 h LET fl$- "PULSA UNA TECLA" 







5027 LET L=LENÍA4) 










5028 FOR 1=1 TO 1 ST£P O 

5029 BEEF 

5030 FOR J"i TO ó 

5031 LOCATE Y,X 

5032 PRINT At? 

5033 IF ÍNKEYtO 1411 THEN GOTO 5043 

5034 FOR K=1 TO 100 

5035 NEXT K 


5036 

LOCATE Y. X 




5037 

PRINT 

SPACF*<L> p 



5038 IF INKEY1K > M " THEN GOTO 5043 



5039 F 

■OH K~ 

■1 TO i 00 











5040 f 

IEXT F 

r 











504 1 NEX 1 

5042 NEXT I 

f J 






















5043 LOCATE Y, X 

5044 PRINT SPñCE*(L>; 

5045 RETURN 


Aunque hay ordenadores que tienen in- 
corporado en el BASIC funciones para hacer 
que parpadeen los mensajes que se imprimen, 
con esta rutina puede hacerse que la frase 
PULSA UNA TECLA" esté parpadeando en el 
lugar que nosotros queramos de la pantalla 
hasta que el usuario pulse una tecla, 



ñg. I, En el Spectrum podemos hacer que un mensaje parpa- 
dee, gracias al comando 'FLASH", 

El mensaje a imprimir puede ser cual- 
quier otro, mientras no sobrepase los 30 carac- 
teres. Esto es así porque si no la rutina pierde 
parte de su vistosidad y se hace más lenta! 

Este programa puede funcionar sin nin- 
gún tipo de problemas en el IBM PC y compa- 
tibles y en el AMSTRAD. Para el resto de los 
ordenadores se proponen las siguientes varia- 
ciones: 


COMMODORE 

Quitar la línea 5029. 


5031 GOSUB 9500 

5033 GET B$:IF B$<>“ THEN GOTO 5043 

5035 GOSUB 9500 

5036 FOR K=1 TO L:PRINT “ “;:NEXT K 
5038 GET B$:IF B$<>“" THEN GOTO 5043 

5043 GOSUB 9500 

5044 FOR K=1 TO L:PRINT " ";:NEXT K 

También hay que unir el programa con 
la rutina LOCATE PARA COMMODORE que 
se dio en el tomo 1 y que vuelve a aparecer 
en éste. 

MSX 

5031 LOCATE X,Y 
5035 LOCATE X,Y 
5043 LOCATE X,Y 

SPECTRUM 

5029 BEEP 0.3,30 
5031 PRINT AT X,Y; 

5035 PRINT AT Y,X; 

5036 PRINT OVER I;A$; 

5043 PRINT AT Y,X; 

5044 PRINT OVER 1;A$; 

El funcionamiento de la rutina línea a lí- 
nea es el siguiente: 

Linea 5026. Se asigna a la variable al- 
ian umérica A$ el string PULSA UNA TECLA. 
Esto puede ser cambiado y asignarle otro 
mensaje distinto, como puede ser PULSA *F’ 
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TRUCOS Y RUTINAS BASICAS 


f ^ 

mu * om m>ú. 

HAS CONSEGUDO 

001 282240 

PUNTOS 

^ i\ t « f * ^ 

PL LSA ^ TECLA PAPA VER FSñXítfPS 
l f í * Í * ( 1 ; 


ñg, 2. Con el programa 1 podemos hacer que los mensajes que 
se le dan al usuario para que pulse una tecla sean más agra- 
dables. 

PARA FINALIZAR. Al ii el mensaje almacena- 
do en una variable, se puede hacer que dicha 
variable tenga su asignación en otra parte del 
programa. Con ello conseguimos que esta ru- 
tina nos sea útil para imprimir cualquier tipo 
de mensaje parpadeante en la pantalla, 

Lútea 5027. Se asigna a la variable nu- 
mérica L la longitud de la cadena A$. 

Lútea 5028. Comienza un bucle infinito, 
Como el incremento (STEP) es igual a cero, 
este bucle no termina nunca, ya que la varia- 
ble I nunca llega a tener valor dos. Todos los 
bucles FORNEXT terminan cuando la variable 
índice del bucle alcanza un valor superior al 
límite máximo requerido. Por ejemplo, sí tene- 
mos el bucle: 

FOR J=1 TO 32:NEXT J 

éste terminará cuando la variable J tenga un 
valor de 33. 

Lútea 5029. Se hace un ruidito para lla- 
mar la atención del usuario, 

Lútea 5030. Comienza un bucle que 
dará seis vueltas y en el que se imprimirá el 
mensaje parpadeando. 

Línea 5031. Se coloca el cursor en la po- 
sición deseada. 

Lútea S032. Se imprime el mensaje. El 
punto y coma (;) del final le dice al ordenador 
que después de imprimir el mensaje no cam- 


bie de línea. Esto no está hecho así porque 
este tipo de mensajes se suelen colocar en la 
última línea de la pantalla. 

Lútea 5033. Se mira si se ha pulsado al- 
guna tecla del teclado, En caso negativo se 
continúa con el programa. En el caso de que 
sí se haya pulsado, se manda a la línea 5043, 

Líneas 5034 y 5035. Comienza un bucle 
en vacío cuya función es ralentizar el parpa- 
deo. La velocidad de éste se puede variar con 
sólo cambiar el número 100 que aparece des- 
pués de la palabra reservada TO. 

Línea 5036. Se vuelve a colocar el cur- 
sor en la posición anterior, pero esta vez para 
borrar el mensaje. 

Lútea 5037. Se imprimen tantos espa- 
cios en blanco como indique la variable L. L 
nos dice el número de caracteres del mensa- 
je impreso, 

Lútea 5038. Igual que la línea 5033. Se 
mira si se ha pulsado alguna tecla. 

Lúteas 5039 y S040. Otro bucle de re- 
tardo. Si se varía el tiempo de retardo del pri- 
mer bucle, también hay que variar el de éste. 

Línea 5041. Fin del segundo bucle. 

Lútea 5042. Fin del primer bucle. 

Línea 5043. Coloca el cursor al princi- 
pio el mensaje, 

Línea 5044. Y lo borra. 

Línea 5045. Vuelve al programa princi- 
pal. 

Estas tres últimas líneas sólo se ejecu- 
tan cuando el usuario ha pulsado alguna tecla. 
Su función es borrar el mensaje PULSA UNA 
TECLA para que no moleste al seguir ejecu- 
tándose el programa. 

Como pueden apreciar los usuarios del 
SPECTRUM, en la línea 5036 aparece lo si- 
guiente: 

5036 PRINT OVER 1;A$; 

con esto se consigue que el mensaje que está 
almacenado en A$ se borre de la pantalla, 


4000 REM ******** ********* ******** ************* i*************** 

4001 REM * 


4002 REM * 

4003 REM * 


<<< PULSA UNA TECLA CON DESLIZAMIENTO >» 


VALIDO PARA MSX, IBM, AMSTRAD, COMMODORE Y SPECTRUM 


4004 REM * 

4003 REM * 

4006 REM * VARIABLES QUE MAY QUE PASARLE A LA RUTINA 

4007 REM * — — ■— H — 

4008 REM * 

4009 REM t X = COLUMNA DONDE SE PQSICIONARA EL MENSAJE 
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4010 REM * Y = FILA DONDE SE POS TC IGNARA EL MENSAJE 

4011 REM * 

4012 REM * LA SUBRUTINA NO RETORNA NINGUN VALOR 
4015 REM * 

4014 REM * VARIABLES USADAS INTERNAMENTE 

4015 REM * 

401 6 REM * 

4017 REM * I = CONTADOR DE BUCLE 
40 IB REM * J - CONTADOR DE BUCLE 

4019 REM t K = CONTADOR DE BUCLE 

4020 REM « A$ = ' PULSA UNA TECLA" 

4021 REM * L = LONGITUD DE Ai 

4022 REM * 

4023 REM ****************************************************** 

4024 REM 

4025 LET A*=" PULSA UNA TECLA 11 

4026 LET L=LEN(Ai> 

4027 LET A4=SPACEifL)+AÍ+SPACE*ÍLl 
402 B LOCATE Y-l, X-l 

4029 FOR 1=1 TO L+2 

4030 PRIWT CHR*<177ÍJ 
4051 NEXT I 

4032 LOCATE Y,X-1 

4033 PRINT CHRi < 1 77 > ; SP ACEÍ í L ) j CHRi í 1 77 1 

4034 LOCATE Y-*-l t X-l 

4035 FOR 1=1 TO L+2 

4036 PRINT CHRi í 177) | 

4037 NEXT I 

4038 FOR 1=1 TO 1 STEP O 

4039 FOR J=1 TO 2*L+1 

4040 LOCATE Y f X 

4041 PRINT MlDÍÍAÍ f J,L) 

4042 IF INKEYÍ< > " M THEN GOTO 404S 

4043 FOR K=1 TQ 50 

4044 NEXT K 

4045 IF J=L+1 THEN FOR K=1 TO 700? NEXT K 

4046 NEXT J 

4047 NEXT I 

4048 RETURN 



Fig. 3. Con el programa 2 el mensaje aparece dentro de la caja , 

En el SPECTRUM, la función OVER nos 
sirve para imprimir en pantalla utilizando la 
operación XOR. 

Si quisiésemos que, en vez de pulsar 
cualquier tecla se pulse una en especial, como 


la letra F, habría que cambiar las siguientes 
dos líneas: 

5033 IF INKEY$="F“ THEN GOTO 5043 
5038 IF INKEY$= ll F“ THEN GOTO 5043 

para que funcione. 

El programa que vamos a ver a conti- 
nuación tiene el mismo fin que el anterior. En 
este caso el mensaje va a aparecer dentro de 
una caja que nosotros dibujaremos en la pan- 
talla. 

Este programa funciona perfectamente 
en los ordenadores IBM PC y compatibles. Las 
líneas que hay que variar para que funcione 
en los demás ordenadores son las que se dan 
a continuación. 
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TRUCOS Y RUTINAS BASICAS 


COMMODORE 

4027 FOR 1=1 TO L:A$=" "+A$+ r ‘ ":NEXT I 

4028 Y= Y- 1 :X=X- 1 :GOSUB 9500;Y=Y+1 
4030 PRINT CHR$(102); 

4032 GOSUB 9500 

4033 PRINT CHR$(102);:FOR 1=1 TO kPRINT 
“ ";:NEXT I: PRINT CHR$(102) 

¿034 Y=Y+l:GOSUB 95Q0:Y=Y-1:X=X+1 
4036 PRINT CHR$(102); 

4040 GOSUB 9500 

4042 GET B$:IF B$<>"" THEN GOTO 4048 

Como siempre, hay que unir este pro- 
grama a la rutina LOCATE PARA COMMODO- 
RE que se dio en el primer tomo y que en éste 
volvemos a reproducir, 

MSX 

4028 LOCATE X-l.Y-1 
4030 PRINT CHR$(207); 

4032 LOCATE X-1,Y 

4033 PRINT CHR$(207); SPACE$(L)+CHR$(207) 

4034 LOCATE X-!,Y+1 
4036 PRINT CHR$(207); 

4040 LOCATE X,Y 

SPECTRUM 

4027 FOR 1=1 TO L;LET A$=' "+A$+ U ":NEXT I 

4028 PRINT AT Y-l.X-l; 

4030 PRINT CHR$(143); 

4032 PRINT AT Y.X-1; 

4033 PRINT CHR$( 1 43); :FOR 1=1 TO 
L:PRINT“ ";:NEXT I: PRINT CHR$(143) 

4034 PRINT AT Y+l.X-l; 

4036 PRINT CHR$(143); 

4040 PRINT AT Y,X; 

4041 PRINT A$(J TO J+L) 

AMSTRAD 

Sólo hay que hacer unas pequeñas sus- 
tituciones, En todas las líneas donde aparezca: 

CHR$(177) 

hay que poner: 

CHR$(207) 

El funcionamiento del programa es muy 
sencillo, aunque es un poco más complejo que 
el que hemos visto anteriormente. Lo que hace 
este programa línea a línea es lo siguiente: 

Linea 4025. Asigna a la variable alfanu- 
mérica A$ el string PULSA UNA TECLA. Este 
mensaje puede cambiarse por cualquier otro, 
como ya vimos anteriormente. 


Linea 4026. La variable numérica L al- 
macenará la longitud de A$ en caracteres. 

Linea 402Z. Se concatena A$ con una 
serie de blancos tanto por la derecha como 
por la izquierda, de forma que el mensaje que- 
de justamente en el centro de la variable. El 
número de blancos que se le suman por la de- 
recha es igual a los que se le suman por la de- 
recha e igual a la longitud de A$, 

Línea 4028. Se coloca el cursor una lí- 
nea más arriba y un carácter más a la izquier- 
da de donde se imprimirá el mensaje. 

Línea 4029. Comienza un bucle dentro 
del cual se dibujará el lado superior de la caja 
en la que aparecerá el mensaje. Dicha caja tie- 
ne un tamaño de L+2x3. Esto es: tiene dos ca- 
racteres más de anchura que el mensaje y tie- 
ne tres caracteres de altura. 

Línea 4030. Se imprime la primera lí- 
nea de la caja carácter a carácter. 

Línea 4031. Aquí termina el bucle. 

Línea 4032. Se coloca el cursor en la lí- 
nea siguiente a la anterior, pero en la misma 
columna. 

Línea 4033. Se imprimen los dos lados 
laterales (derecho e izquierdo) de la caja. El 
espacio entre ellos es igual a L. 

Línea 4034. Se coloca el cursor una lí- 
nea más abajo de donde estaba y se sigue con- 
servando la misma columna. 

Línea 4035. Este bucle es igual al que 
aparece entre las líneas 4029 y 4031, Su fun- 
ción es dibujar el lado inferior de la caja. 

Línea 4036. Se imprime dicho lado ca- 
rácter a carácter. 

Línea 4032. Se termina el bucle. 

Hasta ahora lo que ha hecho el progra- 
ma ha sido inicializarse. Hemos asignado a A$ 
y a L los valores que nos interesaban y hemos 
dibujado una caja en la que se imprimirá el 
mensaje de pulsar una tecla. A partir de este 
momento el programa va a imprimir dicho 
mensaje y a comprobar si se pulsa alguna te- 
cla, 

Línea 4038. Comienza un bucle gracias 
al cual el mensaje irá apareciendo por la de- 
recha de la caja, se desplazará hacia la iz- 
quierda, estará un rato a la vista del usuario y 
volverá a moverse hacia la izquierda hasta de- 
saparecer, En esta línea se comienza con el 
bucle infinito que ya vimos en el programa an- 
terior, y cuya función es hacer que hasta que 
no se pulse una tecla el programa no termine. 

Línea 4039. Aquí comienza el bucle que 
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se encargará de imprimir el mensaje de iz- 
quierda a derecha, de forma que parezca que 
se va desplazando. 

Línea 4040. Se coloca el cursor en la po- 
sición que le hayamos indicado. 

Línea 4041. Se imprimen tiras de L ca- 
racteres de A$ empezando por el carácter nú- 
mero J. En la primera vuelta del bucle se im- 
primirán los caracteres que van desde el pri- 
mero hasta el número L. En la segunda desde 
el segundo hasta L+l. En la tercera desde el 
tercero hasta L+2, y así sucesivamente. 

Línea 4042. Se pregunta si se ha pulsa- 
do una tecla. En caso afirmativo, el programa 
se termina y se manda su control a la línea 
4048, En caso contrario, se continúa con el pro- 
grama. 

Líneas 4043 y 4044. Se realiza un bucle 
en vacío, como tiempo de retardo, antes de im- 
primir la siguiente letra del mensaje. El valor 
de este bucle puede ser variado para que el 
mensaje aparezca más de prisa o más despa- 
cio, según nosotros queramos. 



Línea 4045, Se pregunta si todo el men- 
saje está dentro de la caja. En caso afirmativo 
se le mantiene un rato en la misma posición 
para más tarde continuar con el bucle. Des- 
pués de pasar por esta línea el mensaje irá de- 
sapareciendo por la izquierda de la caja. 

Línea 4046. Aquí termina el segundo 

bucle. 

Línea 4047. Aquí termina el primer bu- 
cle. El bucle infinito. 

Línea 4043. Se devuelve el control al 
programa principal. 

Si os fijáis en el funcionamiento del pro- 
grama, podréis ver que es muy parecido a uno 
de los programas de impresión de mensajes 
que vimos hace algunas semanas. Os recuer- 
do esto para que veáis que se pueden hacer 
muchísimas cosas con las rutuinas que aquí va- 
mos proponiendo tomo a tomo. 

Otra de las maneras que tenemos de 
imprimir el mensaje PULSA UNA TECLA lo po- 
demos ver en el programa 3. 


4000 
4010 
4020 
4030 
4040 
4050 
40 ¿O 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4 1 hO 
4170 
4180 
4Í90 
4200 
4210 
4220 


REM 

REM 

REM 

REM 

REM 

REM 

REÍ1 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


utMtitiiviiiiiituuutumnimmmiimuitiitt 
* * 

* «< PULSA UNA TECLA CON CURSOR PARPADEANTE >» * 

* * 
* VALIDO PARA USX, IBM» AMSTRAD, CGHMODORE Y SPÉCTRUH * 
tftf ********* ************** *********** ******** ** ******* 


* VARIABLES USABAS POR LA RUTINA 

* — — 

« 

í I = CONTADOR DE BUCLE 

* 3 - CONTADOR DE BUCLE 

* A* * * PULSA UNA TECLA" 

* L = LONGITUD DE A* 

* 

t LA RUTINA NO RETORNA NINGUN VALOR 

* 

» VARIABLES QUE HAY QUE PASARLE A LA RUTINA 

* 

* 

* X = COLUMNA DONDE SE P0S1C TONARA EL MENSAJE 

* Y = FILA DONDE SE FOSICXONARA EL MENSAJE 

* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

t 

t 

* 

I 

* 

% 

* 


4230 REM ************************************************* ****** 

4240 REM 

5000 LET AS= "PULSA UNA TECLA " 

5001 LET L-LEN (At ) 

5002 LOCATE Y, X 

5003 PRINT AS í 

5004 POR 1=1 TO 1 STEP O 

5005 LOCATE Y ? X+L+2 

5006 PRINT CHRSÍ1771; 

5007 IF INKEYSO” 1 ' THEN GOTO 5016 
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TRUCOS Y RUTINAS BASICAS 




5008 FGR J=I TO 100 

5009 NEXT J 

5010 LOCATE Y, X+L+2 

5011 PRINT " "j 

5012 IF INKEYSÍ >" 11 THEN GOTO 5016 

5013 FDR J=I T0 100 








SOH 


NEXT 

J 
















5015 NEXT I 

5016 LOCATE Y,X 

5017 PRINT SPACE$ CL+3> } 
50 IB RETURN 


Este programa funciona perfectamente 
en los ordenadores IBM PC y compatibles 
Para el resto de los ordenadores hay que in- 
troducir los siguientes cambios: 

COMMODORE 

5002 GOSUB 9500 

5005 LET X=X+L+2:GOSUB 9500 

5006 PRINT CHR$(102); 

5007 GET B$:IF B$<>"" THEN GOTO 5016 
5010 GOSUB 9500:X=X-L-2 

5012 GET B$:IF<>“" THEN GOTO 5016 

5016 GOSUB 9500 

5017 FOR 1=1 TO L+3:PRINT" “;:NEXT I 

Es necesario unir este programa con la 
rutina LOCATE PARA COMMODORE que apa- 
rece más adelante. 

MSX 

5002 LOCATE X,Y 

5005 LOCATE X+L+2, Y 

5006 PRINT CHR$(207); 

5010 LOCATE X+L+2, Y 
5016 LOCATE X,Y 

AMSTRAD 

5006 PRINT CHR$(207); 

SPECTRUM 

5002 PRINT AT Y,X; 

5005 PRINT AT Y.X+L+2; 

5006 PRINT CHR$(143); 

5010 PRINT AT Y.X+L+2 

5016 PRINT AT Y.X; 

5017 FOR 1=1 TO L+3:PRINT“ “;:NEXT I 

El funcionamiento del programa línea a 
línea es el siguiente: 

Línea 5000. Se asigna a la variable A$ 
el string PULSA UNA TECLA. 

Línea 5001. Se asigna a la variable L el 
número de caracteres que se almacenan en la 
variable A$. 



Fig. 4. Con el programa 3 podemos ver cómo el cursor parpa- 
dea al final de la frase. 

Línea 5002. Aquí colocamos el cursor 
en la posición que le hemos indicado a la ru- 
tina al darle valores a las variables X e Y. 

Línea 5003. Se imprime el mensaje. El 
punto y coma (;) del final de la línea sirve para 
que si el mensaje se coloca en la última línea, 
la pantalla no haga un scroll. 

Línea 5004. En esta línea comienza un 
bucle dentro del cual se va a encender y apa- 
gar un cursor que se encuentra a la derecha 
del mensaje. Antes de cada parpadeo se pre- 
guntará si se ha pulsado alguna tecla. 

Línea 5005. Se coloca el cursor dos lu- 
gares más a la derecha del final del mensaje. 

Línea 5006. Se imprime un cuadrado de 
color que hará las funciones de un cursor visi- 
ble. 

Línea 500L Se pregunta si se ha pulsa- 
do alguna tecla. En caso afirmativo, se da el 
control del programa a la línea 5016, En caso 
contrario, el programa continúa como hasta 
ahora. 

Líneas 5008 y 5009. Se realiza un bucle 
en vacío que sirve para retardar el parpadeo 
del cursor. 

Línea 5010. Se vuelve a colocar el cur- 
sor invisible dos lugares más a la derecha del 
final del mensaje. 

Línea 5011. Se imprime un espacio en 
blanco para borrar el cuadradito que hacía de 
cursor, Esta línea, conjugada con la línea nú- 
mero 5006 que imprime un cuadradito, hace 
que nos parezca que el cursor está parpa- 
deando, 
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Línea 5012. Se vuelve a preguntar si se 
ha pulsado alguna tecla. 

Líneas 5013 y 5014. Se realiza un nue- 
vo bucle en vacío que actúa como retardo del 
parpadeo. 

Línea 5015. Termina el bucle principal. 
Este también es un bucle infinito, pues el in- 
cremento (STEP) es cero. 

Línea 5016. Se coloca el cursor de nue- 
vo al principio del mensaje, 

Línea 5017. Se borra dicho mensaje 
para que no moleste en la posterior ejecución 
del programa principal. 

Línea 5018. Se devuelve el control al 
programa principal. 

Ejercicios resueltos 

EJERCICIO N.° 1 

Aunque este último programa lo hemos 
puesto como una rutina que se puede utilizar 
para imprimir mensajes del tipo: 

PULSA UNA TECLA 

su mejor aplicación puede encontrarse a la 
hora de hacer menús por pantalla. En los pro- 
gramas que utilizan menús suele elegirse una 
cierta opción tecleando, bien por el número 
que precede a dicha opción, bien la letra por 
la que empieza dicha opción o bien la letra 
que se encuentra al principio de dicha opción. 

Normalmente, debajo del menú se le 
suele dar al usuario un mensaje parecido al si- 
guiente: 

POR FAVOR, 

PULSE LA OPCION QUE LE INTERESE 

con el cursor a la derecha de la frase, tal y 
como aparece en el programa 3. 

Para hacer que este último programa 
nos sirva para introducirlo en la recogida de 
datos de nuestros menús, sólo hay que reali- 
zar algunos cambios. Estos consisten en: 



MENU 


1 INTRODUCIR FICHAS 

2 BQ RRAR FOtóS 

3 VER FICHAS 

4 MQOnDtfl FICHAS 
$ IMPRIMIR FICHAS 


Í3PCCN M ' 

i 



Hg, 5, Forma típica de un menú . 

1. Imprimir un mensaje como el visto 
anteriormente. 

2. Aceptar sólo algunas de las teclas. 
Sólo aquellas que estén reflejadas como opcio- 
nes en el menú. 

3. Sacar por pantalla algún mensaje 
de error cuando el usuario pulse alguna tecla 
no permitida. 

4. Tiene que aparecer la tecla pulsa- 
da en el lugar del cursor una vez elegida la 
opción, 

¿Serías capaz de realizar dichos cam- 
bios? 






MENU 


1 

introducir fichas 


2 

borrar fchas 


3 

VER FICHAS 


k 

MOfJFiCAR FICHAS 


5 

IMPRIMIR FICHAS 


6 

terminar 


oecói ¡r 


mm pulse un numero • 

** - 


Fíg. 8. Si el usuario no pulsa ¡a tecla que se le pide, aparece un 
mensaje de error , 

SOLUCION 

El programa 4 resuelve este ejercicio 
de una forma muy sencilla, ¿Se te ocurre otra? 


4000 REM ************ *********************************** ******** 


O 

o 

R En t 

* 

4020 

REM % 

<<< PETICION DE OPCION CON CURSOR PARPADEANTE >» * 


4030 

REM * 






* 

O 

o 

REM * VALIDO 

PARA í 

1SX r IBM* 

AMSTRAD 

, CüfIMODQRE Y 

SPECTRUM 1 


4050 REM t ********* ********* tttttttttt ************************** 

4060 REM * t 
4070 REM * VARIABLES USADAS POR LA RUTINA « 
40 BO REM * * 



TRUCOS T RUTINAS BASICAS 





4090 

REM * 







4120 




4130 




4135 

4 1 40 




4150 



4160 


4100 REM * I = CONTADOR DE BUCLE 




t 

4110 REM * J - CONTADOR DE BUCLE 





* 


REM í ñ$ = * PULSA UNA TECLA' 

REM t L = LONGITUD DE A* 

REM t m = VARIABLE QUE RECOGE „ LA ULTIMA TECLA PULSADA 

REM * 

REM * LA RUTINA NO RETORNA NINGUN VALOR 
REM * 

4170 REM * VARIABLES QUE HAY QUE PASARLE A LA RUTINA 



41 BO REM i* — — 

4190 REM * 

4200 REM * X = COLUMNA DONDE SE POSICIONARA EL MENSAJE 
4210 REM í Y = FILA DONDE SE POSICIONARA EL MENSAJE 
4220 RÉM t 
4230 REM 
4240 REM 

3000 LET A*=“ INTRODUZCA OPCION 1 ' 

3002 

5003 PRINT A*| 

5004 POR r-1 TO 1 STEF O 
SQÚ5 
5006 
3007 

5008 IF B*<> ,lfl AND <B*< l, jr PR THEN GG5UB 5023 

IF 8*0"*’ THEN GGSUB 5034JB0T0 5020 
FOR J=1 TO 100 


t 

* 

* 

* 

* 

* 

* 


LET L=LENÍAt: 

> 









: LOCATE Y , X 







LOCATE YjX+L+2 
PRINT CHR*íl77)f 
LET B$=í NKEY4 
IF Bf < >“ " AND < B4< 11 1 " 


5009 

5010 

son 


NEXT J 


5012 

LOCATE Y. 

5013 

PRINT * 1 


5014 LET B^INKEY* 

5015 IF Bt< > n *' AND OR THEN GOSUB 5023 



5016 IF 8*0 

5017 FOR J=1 

M *' THEN GO SUS- 
TO 100 

5034: ODIO 5020 









/ 

5018 NEXT J 










5019 NEXT I 








5020 LOCATE Y ? X 

5021 PRINT SPACE$ <L>3) | 

5022 RETURN 

5023 REM 

5024 REM *** ERROR **t 

5025 REM 

5026 LOCATE Y,X+L+2 

5027 PRINT “ERROR 

5028 FOR J*=l TD 500 

5029 NEXT J 

5030 LOCATE Y*X+L+2 

5031 PRINT " 

5032 LET B*= r "" 

5033 RETURN 

5034 REM 

5035 REM *** IMPRESION DE LA OPCION ELEGIDA ttt 

5036 REM 

5037 LOCATE Y,X+L+2 

5038 PRINT B*| 

5039 FOR J=1 TG 500 

. 

5040 NEXT J 

5041 RETURN 
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Las modificaciones a realizar para los 
ordenadores MSX, COMMODORE y SPEC- 
TRUM son muy parecidas a las realizadas en 
el programa 3, pero, como los números de lí- 
nea están cambiados, vamos a ponerlas todas 
de nuevo. 

COMMODORE 

5002 GOSUB 9500 

5005 X=X+L+2:GOSUB 9500 

5006 PRINT CHR$(102); 

5007 GET B$ 

5012 GOSUB 9500 

5101 GET B$ 

5019 X=*X-L-2:NEXT I 

5020 GOSUB 9500 

5021 FOR J=1 TO L+3:PRINT“ “;:NEXT ] 

5026 GOSUB 9500 

5030 GOSUB 9500 

5037 GOSUB 9500 

Como en todos los programas de este li- 
bro, hay que unir esta rutina a la que se en- 
cuentra un poco más adelante y que se llama 
RUTINA LOCATE PARA COMMODORE. 


5030 LOCATE X+L+2.Y 
5037 LOCATE X+L+2.Y 


SPECTRUM 

5002 PRINT AT Y,X; 

5005 PRINT AT Y.X+L+2; 

5006 PRINT CHR$(143); 

5012 PRINT AT Y.X+L+2; 

5020 PRINT AT Y,X; 

5021 FOR J=1 TO L+3: PRINT" ";:NEXT J 

5026 PRINT AT Y.X+L+2; 

5030 PRINT AT Y.X+L+2; 

5037 PRINT AT Y.X+L+2; 

Como siempre, el funcionamiento del pro- 
grama os lo dejo para vosotros. Con ello con- 
seguiréis más velocidad a la hora de progra- 
mar y se os ocurrirán otras soluciones mejores. 


f! Rutina para simular la sentencia 
LOCATE en el COMMODORE 


Aunque esta rutina apareció en el pri- 
mer tomo de esta colección, lo volvemos a in- 
cluir en éste para aquellas personas que no 
tengan todavía el tomo primero y para que 
puedan utilizar todos los programas que aquí 
se irán dando. 

9950 REM ****************** *** ******** ******** ** ************* 

9951 REM * « 

9952 REM * RUTINA 'LOCATE" PARA COMMODORE * 

9953 REM * * 

9954 REM ** t t t t * |* t *********************** | ***************** * 

9955 REM * VARIABLES GUE SON NECESARIAS PASARLE A LA RUTINA * 

9956 REM * — — * 

9957 REM * X ^ COLUMNA DONDE NOS QUEREMOS FOSICIONAR * 

9958 REM * Y - FILA DONDE NOS QUEREMOS FOSICIONAR * 

9959 REM * * 

9960 REM * LA RUTINA NO DEVUELVE VALORES * 

9961 REM * * 

9962 REM * VARIABLES QUE SE USAN INTERNAMENTE * 

9963 REM * — * 

9964 REM * CC « CONTADOR DE BUCLES « 

9965 REM ***************************** *| ** *|| *************** * 

9966 REM 

9967 PRINT “OJONES 1 1 
9960 FOR CC=Í TO X 

9969 PRINT ”< CURSOR DERECHA >"| 

9970 NEXT CC 

9971 FOR CC*1 TD Y 

9972 PRINT 1, <CUR30R ABAJQV j 

9973 NEXT CC 

9974 RETURN 


MSX 

5002 LOCATE X,Y 
5005 LOCATE X+L+2.Y 
5012 LOCATE X+L+2.Y 
5020 LOCATE X,Y 
5026 LOCATE X+L+2.Y 
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i Conexiones mediante sensores ópticos 

E los dispositivos que pue- 
den conectarse a los orde- 
nadores personales hay un 
conjunto de ellos que utili- 
zan dispositivos sensibles a 
la luz. Vamos a describir al- 
gunos y también aplicacio- 
nes interesantes y de fácil 
realización. Empezaremos describiendo los 
sensores de señales luminosas y su forma de 
utilización; después se mostrarán aplicaciones 
inmediatas de algunos de ellos con posibilidad 
de conexión a los ordenadores para los cuales 
se han descrito los conectores de expansión. 

Sensores de luz 

Los componentes sensibles a la luz y de 
fácil adquisición en el mercado son: 

— Resistencias variables con la luz 
(LDR = Light Dependent Resistor). Son muy 
populares y económicas. Son robustas, a la vez 
que muy sensibles, aunque presentan una res- 
puesta característica no lineal y dependiente 
de la cantidad de luz recibida. Sin embargo, 
para variaciones pequeñas de luz tienen res- 
puesta casi lineal. 

— Fotodiodos. Los fotones que inciden 
en ellos generan pares electrón-hueco, que 
origina una corriente proporcional a la luz in- 
cidente. Se emplean polarizados inversa- 
mente. 

— Diodos PIN. Poseen una capa de se- 
miconductor de bajo dopado, siendo de res- 
puesta muy rápida. 


— Fototransistores. Se montan con un 
fotodiodo que actúa sobre la base de un tran- 
sistor. Poseen una sensibilidad mucho mayor 
que los fotodiodos, con un tiempo de respues- 
ta también mayor. 

— Fotomultiplicadores, Realizados me- 
diante superficies con sales de fósforo a alta 
tensión, generan corrientes a partir de luz con 
un elevado factor de ganancia, pues por cada 
electrón generado en la primera superficie se 
generan muchos en cada una de las siguien- 
tes. Se emplean solamente cuando la luz reci- 
bida es de muy poca intensidad como es el 
caso de los telescopios o microdensitómetros. 
Como son también sensibles a fotones en fre- 
cuencias no visibles, se emplean para detec- 
tar radiaciones. 

— CCDs. Charge Coupled Devices = 
Circuitos Acoplados por Carga, poseen un fo- 
todiodo que carga un condensador, Para su 
lectura se transfiere el contenido de cada con- 
densador al más próximo, mediante pulsos. 
Según su organización geométrica, pueden 
distinguirse: puntuales, lineales, matriciales o 
circulares. 

— Células fotovoltaicas. Generan 
corriente a partir de la producción de los pa- 
res electrón hueco, a partir de los fotones re- 
cibidos. Convierten solamente un 10 %, aproxi- 
madamente, de la energía recibida en 
corriente eléctrica. 

El circuito mediante el cual se convier- 
te la señal luminosa en señal eléctrica es muy 
similar en todos ellos, dependiendo los valo- 
res de las resistencias y tensiones del rango 
de luz que sea necesario medir. 

En el dibujo se muestra el esquema de 
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ESQUEMA DE OPERACION CURVA CARACTERISTICA 

Fig, J. Fotodiodo. Fig. 2. Circuitos típicos para sensores de luz. 


operación del fotodiodo al ser iluminada su 
unión PN por la luz, La curva característica 
muestra la corriente en el fotodiodo para de- 
terminados niveles de iluminación, al variar la 
tensión aplicada a la unión, En condiciones de 
trabajo normales, la tensión observada entre 
los bornes del diodo seguiría una recta como 
la mostrada, pasando por los puntos corres- 
pondientes a la tensión de alimentación en el 
eje horizontal y en la corriente límite, Va/R, 
en el eje vertical. Es decir, para el esquema 
de la figura, a mayor nivel de iluminación 
correspondería menor tensión de salida, 

La utilización de la señal depende fun- 
damentalmente de la aplicación, pues en al- 
gunos casos es suficiente con determinar si la 
luz está dentro de un valor especificado, mien- 
tras en otros será necesario el empleo de al- 
gún tipo de conversor para conocer la magni- 
tud dentro de márgenes precisos. Es conve- 
niente experimentar con la solución que se 
adopte, variando la resistencia de carga para 
encontrar el punto de trabajo conveniente. 
También es recomendable que el punto de 
trabajo se encuentre, aproximadamente, en el 
valor medio de la tensión de alimentación si 
se desea respuesta lineal, Los circuitos indica- 
dos no son lineales, presentando su máxima 
sensibilidad si el punto de trabajo es el indi- 
cado. La calibración será necesaria hacerla 
por comparación con algún fotómetro calibra- 
do, si se desean medidas absolutas, pues la 
dispersión entre los componentes no permite 
garantizar unos valores seguros "a priori". 

Para el funcionamiento correcto de mu- 
chos de los sensores ópticos deberá disponer- 
se de algún filtro de vidrio para eliminar la in- 
fluencia de los rayos infrarrojos a ios que son 
muy sensibles la mayoría de los fotodiodos y 
fototransistores, 

Los parámetros a tener en cuenta para 
la selección del dispositivo adecuado son: sen- 


sibilidad, respuesta espectral, ángulo de vi- 
sión. estabilidad con la temperatura, límites 
admisibles de tensión de trabajo. 

I Acción de dispositivos desde la 
pantalla del ordenador 

Con los elementos sensores a la luz que 
hemos descrito, si los colocamos delante de la 
pantalla de nuestro ordenador personal pode- 
mos comunicar órdenes mediante la simple 
activación de una o varias posiciones en la 
pantalla. Para ello hemos de seguir los siguien- 
tes pasos: 

— Deducir mediante un programa sen- 
cillo todas las posiciones activas en una línea, 
por ejemplo, la inferior de la pantalla. Para ello 
ejecutaremos un programa que presente una 
secuencia de caracteres como ** m en la línea 
deseada. 

— Seleccionar el número de señales 
que necesitamos para actuar el equipo exte- 
rior. 

— Seleccionar la separación, Uno de 
cada dos puede ser lo apropiado, depende del 
tamaño del sensor. 

— Seleccionar el elemento fotosensi- 
ble, Un fototransistor, por ejemplo. 

— Montar un pequeño armazón para 
soporte de los fototransistores y colocarlo so- 
bre la pantalla en la línea seleccionada, pe- 
gándolo con un adhesivo. 

— Añadir los amplificadores para cada 
fototransistor, hasta conseguir niveles adecua- 
dos. Los amplificadores deberán poseer histé- 
resis, pues la pantalla presenta la iluminación 
de forma parpadeante y aunque posea algo de 
persistencia, conviene garantizar una conmu- 
tación segura. 
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— Sacar las señales a un conector o ca- 
ble hasta el equipo a actuar, 

El control de equipos mediante . este 
procedimiento es lento pero seguro, pues no 
requiere introducirse en las interioridades de 
la máquina y, además, puede servir para cual- 
quier ordenador. 

+ 



Fig. 3, Disposición de i os fototransistores sobre la pantalla. 


El circuito de la figura permite calibrar 
la intensidad luminosa necesaria para la acti- 
vación. Al iluminarse el fototransistor pasará 
corriente por él, por lo que habrá tensión alta 
a la entrada del inversor con histéresis. Para 
reducir el efecto de parpadeo de la pantalla 
se incluye el condensador en paralelo con la 
entrada. La resistencia variable deberá ser 
ajustada para cada tipo de fototransistor y de 

pantalla, Para cada elemento sensible debere- 
mos utilizar un circuito como el de la figura, 
actuando sobre el circuito de control apropia- 
do. El esquema con el diodo LED es solamen- 
te para prueba de funcionamiento. 



Fig , 4. Circuito para los fototransistores. 


El siguiente programa de test sirve 
para verificación de los sensores para activa- 
ción desde la pantalla: 

10 REM PROGRAMA DE ACTIVACION DE 


DISPOSITIVOS A TRAVES DE LA PANTALLA 
20 REM PRODUCE UNA SECUENCIA DE 
UNOS Y CEROS PARA TEST 
30 FOR 1=1 TO 1000 
40 LOCATE 25,40 
50 PRINT 
60 LOCATE 25,40 
70 PRINT “ 

80 NEXT I 
90 END 

Sensor de luz ambiente 

Con un sencillo circuito basado en un 
sensor luminoso podemos construir un detec- 
tor de nivel de luz, para poder actuar en con- 
secuencia a través del ordenador. Mediante 
una fotocélula captamos el nivel de luz en el 
punto o puntos deseados. Una resistencia va- 
riable permite ajustar el nivel que debemos 
captar para activar un programa o actuar so- 
bre otro dispositivo, Por supuesto, que la ac- 
ción que desencadene la captación de nivel 
de luz podría ser una situación de alarma, 
como, por ejemplo, la aparición de llama. 

Si disponemos de varios sensores, cali- 
brados a diferentes niveles, podemos realizar 
un control proporcional. Si el control fuera ne- 
cesario hacerlo con mayor resolución, lo apro- 
piado sería disponer un conversor analógico- 
digital que suministrara el nivel de la señal de 
manera digital adaptada al margen de medi- 
da adecuado. 
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DEL ORDENADOR 


Fig. S. Circuito de sensor de luz ambiente 

El programa de tratamiento de la lectu- 
ra debería tener en cuenta la posibilidad de 
activación esporádica por ruido, por lo que 
convendrá filtrar la señal digital suministrada 
y no tomarla en consideración si no ha pasado 
un determinado período con la señal a nivel 
estable. El circuito de generación de la señal 
puede llevar además histéresis para reducir 
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en lo posible el disparo si las condiciones de 
entrada fluctúan lentamente entre los valores 
del punto programado. En el circuito mostra- 
do se ha aislado la comunicación al ordenador 
mediante un relé actuado mediante el circui- 
to de amplificación del sensor. 


personas, para medir tiempos entre pasos, por 
ejemplo. La fuente luminosa puede ser un dio- 
do LED o una lámpara de incandescencia, se- 
gún la distancia y las condiciones ambientales. 

B Barrera de reflexión 


Barreras ópticas 

Con los elementos descritos podemos 
realizar barreras ópticas, que pueden utilizar- 
se en muy diferentes aplicaciones. La señal 
generada en los sensores ópticos, una vez 
adaptada a los niveles de las entradas del or- 
denador, pueden conectarse a la tarjeta de 
ampliación de puertos en cualquiera de los 
puertos de entrada. Veamos algunos ejemplos 
concretos: 

Barrera de transmisión 


Mediante una fuente luminosa, que pue- 
de ser no visible si se utilizan LEOS de in- 
frarrojos, se activa un fototransistor. Si se pro- 
duce una interrupción del rayo luminoso, por 
el paso de un objeto opaco, la salida del sen- 
sor producirá una variación de nivel. Según 
sea la separación entre la fuente luminosa y el 
sensor, puede ser necesario utilizar algún me- 
dio óptico, como, por ejemplo, un par de len- 
tes, para colimar y concentrar los rayos sobre 
el fototransistor. El sistema óptico será nece- 
sario diseñarlo para cada aplicación específi- 
ca. Para que los rayos salgan paralelos debe- 
remos colocar la fuente emisora de luz en el 
foco de la lente y lo mismo del lado receptor. 
Para que el sistema sólo se active por la luz de 
la barrera deberemos montar el receptor en 
un tubo apropiado, de forma solidaria con la 
lente. 
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Hg. 6 . Esquema de barrera de transmisión . 
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Este tipo de barreras son aplicables a 
la detección de paso de piezas o incluso de 


Para simplificar el montaje de la barre- 
ra y eliminar los cables necesarios para la 
fuente luminosa, puede utilizarse un espejo u 
otra superficie reflectante, que retorne el rayo 
luminoso a un punto próximo, donde se colo- 
cará el fototransistor del receptor. 



ESPEJO 



LED O LAMPARA 



FOTOTRANSISTOR 


Fig. 7 . Esquema de barrera de reflexión. 


Para distancias cortas de detección de 
paso existen parejas de emisor-receptor en un 
solo bloque. Este tipo de barreras son de apli- 
cación en detección de piezas o de objetos 
que pasan a distancia fija, como podría ser el 
caso de vagones de ferrocarril. 


Marco para pantalla sensible al tacto 

En muchas ocasiones es interesante dis- 
poner de un medio de comunicación con el or- 
denador que permita realizar directamente la 
selección de las opciones sin más que tocar la 
pantalla, sin ningún instrumento adicional, Me- 
diante una barrera de rayos infrarrojos puede 
realizarse este proyecto. 

El principio físico consiste simplemente 
en la creación de franjas de luz infrarroja me- 
diante diodos LEDs y en su captación con fo- 
todiodos o fototransistores. Existe gran varie- 
dad de dispositivos que permiten realizar es- 
tas barreras y en el diagrama se muestran los 
circuitos necesarios. 

Un aspecto importante a considerar es 
la resolución necesaria para la aplicación. 
Para la selección de las opciones de un menú 
será suficiente con poder presentar como zo- 
nas activas el número máximo de opciones po- 
sibles, que, en general, no pasarán de 20. Pero 
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si se desea poder ofrecer las zonas activas en 
cualquier parte de la pantalla, la resolución 
efectiva debe ser mayor. Una red de 8 x 8 pre- 
senta un número más que suficiente , de zonas 
activas de selección. Los equipos comerciales 
actualmente disponibles presentan resolucio- 
nes hasta de 30 x 40. 



Fig. 8. Disposición de ¡os elementos en el marco. 

El programa deberá explorar cada uno 
de los fototransistores mientras mantiene la 
iluminación en el LED opuesto. Si detecta que 
el nivel corresponde a barrera cortada, lo ano- 
tará en la tabla de cruces, Si no, anotará un 0. 
Al terminar el barrido, un pequeño análisis 
permitirá detectar el punto donde se encuen- 
tra el obstáculo y, por tanto, las coordenadas 
del punto seleccionado, La exploración del 
LED emisor y del fototransistor receptor pue- 
de efectuarse de manera simultánea, o bien 
pueden alimentarse continuamente todos los 
LEDs y explorar solamente los fototransistores. 
El segundo procedimiento tiene la ventaja de 
la simplicidad, pero puede ocurrir que, por 
error de alineamiento, un fototransistor reciba 
iluminación de un LED próximo, con lo que no 
se detectará la ruptura de la barrera. El pri- 
mer procedimiento requiere algo más de Cir- 
cuit ería, pero no presenta problema de alinea- 
miento, incluso en el caso de poner los LEDs 
muy juntos. Tanto los LEDs como los fotodetec- 
tores se fabrican con una lente que les hace 
muy direccionales, presentando ángulos de 
visión activa de 5 a 10 grados. 

Los circuitos de alimentación de los 
LEDs y de recepción con fototransistores son 
los típicos para las barreras ópticas que hemos 
visto. Para los componentes con lente incorpo- 
rada se muestran en la figura, 

Los marcos sensibles al tacto suelen co- 
nectarse como dispositivo asincrono serie, ge- 
nerando el adaptador de soporte una secuen- 
cia de señales correspondiente a las coorde- 
nadas de la celda activada. 




O+sv 


41C7 


Salida 

-o 


FOTO TRAN- 
SISTOR 


Fig. 9 Circuitos de emisión y recepción. 

Es necesario mencionar algunos de los 
problemas que presenta un sistema de comu- 
nicación con la máquina a través del contacto 
sobre la pantalla: puede resultar incómodo te- 
ner que levantar los brazos continuamente 
para seleccionar la opción, la luz ambiental 
puede ocasionar activaciones erróneas, el pol- 
vo puede obstruir los orificios de paso de luz 
y además la pantalla acaba siempre con las 
marcas de los dedos. Sin embargo, puede te- 
ner futuro en aplicaciones donde un mismo 
usuario utiliza con poca frecuencia el sistema 
o donde pueda protegerse de la suciedad o el 
deterioro voluntario. 


Ejemplo práctico de aplicación 

Para desarrollar el esquema presenta- 
do necesitamos las siguientes unidades fun- 
cionales a construir: 

— Marco de soporte adaptado a la pan- 
talla. La superficie de la pantalla suele ser cur- 
vada, por lo que se adaptará el soporte para 
que los rayos de los LEDs sobrepasen el pun- 
to más alto. 

— 16 parejas de LEDs y fototransisto- 
res. 

— Cuatro tiras de soporte de LEDs y fo- 
totransistores. 

— Tarjeta soporte de la circuitería de 
interfaz, además de la tarjeta de ampliación de 
puertos. 

— Cables de señales. 

— Conectores de unión entre unidades. 

Pueden plantearse diferentes situacio- 
nes según el número de puntos en los que se 
detecta corte de la barrera. El programa de- 
berá decidir la opción más razonable, calcu- 
lar un punto medio, por ejemplo, el centro de 
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gravedad de la zona activada o dar una indi- 
ración de error para que realice una nueva se- 
. acción. El programa que se muestra da como 
resultado un carácter en pantalla de los pun- 
ces activados. Este programa es aplicable al 
3M-PC. Para adaptarlo a SPECTRUM o AMS- 
. ríAD se deberán cambiar las direcciones de 
les puertos, que deberán ajustarse a las que 
croduzcan la señal SELRO y SELR1, según se 
ir.dicó en el fascículo 1. También se cambiará 
.= sentencia de entrada INP por IN. Para COM- 
MODORE, además deberá sutítuirse la senten- 
cia INP por el correspondiente PEEK. 


290 FOR 1=1 TO 8: PRINT VY(I)¡: NEXT 1: PRINT 
300 RETURN 

310 LOCATE 1,1: REM MUESTRA LA MATRIZ 
320 PRINT * 12345678“; 

330 FOR 1=3 TO lOcLOCATE I,1:PRINT 
MID$(V$,I-2,1);; NEXT I 
340 FOR 1=1 TO 8 
350 FOR J=1 TO 8 

360 IF VX(I)<>0 AND VY(J)<>0 THEN LO- 
CATE 2+I,2+J:PRINT 
370 NEXT J 
380 NEXT I 
390 RETURN 


10 REM MARCO 

: : REM PROGRAMA DE LECTURA DE MAR- 
GO DE REJILLA INFRARROJOS 
30 REM PARA CUALQUIER OP CON TARJETA 
DE EXPANSION DE PUERTOS 
15 REM IBM-PC, SPECTRUM, AMSTRAD. 
DOMMODORE USAR CAMBIOS 
40 REM LEE ESTADO, SI ACTIVO, LEE COOR- 
DENADAS X E Y 

50 REM LAS ENTRADAS DE X E Y DEBERAN 
ESTAR CABLEADAS 

50 REM EN LOS PUERTOS $H201 Y &H203 DE 
LA TARJETA DE EXPANSION 
70 PUERTOX-&H201: PUERTOY-&H203 
80 V$="l 2345678“ 

90 CLS: KEY OFF 

100 A=INP(PUERTOX): B=INP(PUERTOY) 

110 LOCATE 24,1: PRINT HEX$(A);HEX$(B); : 
REM MUESTRA ESTADO 
120 IF (A O 255) OR (B<>255) THEN 130 
ELSE 100 

i 30 X=INP(PUERTOX): Y=INP(PUERTOY) 

140 X=24: Y=48: REM VALORES SIMULADOS, 
PARA PRUEBA SIN MARCO 
150 GOSUB 200: REM MUESTRA VECTORES 
VX, VY 

160 GOSUB 310: REM PRESENTA MATRIZ 
-70 LOCATE 15,1: PRINT “PULSE PARA SE- 
GUIR 0 

180 INPUT A$ 

190 CLS: GOTO 90 

200 REM MUESTRA EN PANTALLA LOS VEC- 
TORES 
210 LINEA* 1 
220 FOR 1=1 TO 8 

230 VX(1)=X AND LINEA: VY(I)=Y AND LINEA 
240 LINEA=LINEA*2 
250 NEXT I 

260 PRINT: PRINT "VX="; 

270 FOR 1=1 TO 8: PRINT VX(Í);: NEXT I 
280 PRINT * V Y ="; 


La rutina de exploración puede activar- 
se de forma continua, por temporización o 
bien por detección de que hay algún sensor 
activado. Mediante el circuito que se indica, 
podría generarse interrupción cada vez que 
hubiera algún sensor activado, comenzándose 
entonces la exploración para detectar cuál o 
cuáles fueron los que lo causaron. Requiere 
una entrada adicional para indicar el estado o 
para producir la interrupción. 

Para obtener las condiciones óptimas 
de funcionamiento conviene alinear las zonas 
sensibles con posiciones de filas y columnas 
de la pantalla. Para ello se diseñará una pan- 
talla similar al menú más complejo que se pue- 
da utilizar en la práctica y se harán coincidir 
las posiciones de las zonas sensibles con las fi- 
las y columnas de los puntos de selección del 
menú. Sabiendo estas coordenadas, los pro- 
gramas que usen esta interfaz táctil utilizarán 
para indicar ios puntos a contactar solamente 
los centros de las zonas sensibles. Todas las 
pantallas pueden ajustar su imagen en altura 
y anchura, por lo que podrá hacerse un ajuste 
fino para centrado de las zonas sensibles, si se 
cambia de pantalla. 


Lista de componentes electrónicos 


— 16 LEDs infrarrojos, TIL31B. 

— 16 foto transistores, TIL81. 

— Multiplexor, realizado con 74LS05, 
con salidas conectadas en OR, cableado si se 
emplea entrada por interrupción. 

— Decodificador para la tarjeta de am- 
pliación de puertos, 74LS138, 

— Amplificador de conexión al bus, 
74LS244. 
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EL TALLER DE HARDWARE 
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A PUERTO DE ENTRADA 
O INTERRUPCION 


fig. ¡0. Circuito para interrupción o indicación de estado 


— Resistencias de 4K7, para ios foto- 
transistores. 

I Otras aplicaciones 

Hemos visto diversas aplicaciones de 
los sensores ópticos conectados a un ordena- 
dor personal como elementos de entrada que 
permiten la relación con el mundo luminoso 
exterior. Solamente hemos contemplado aque- 
llos casos que permiten discriminar en el sen- 
sor entre dos niveles diferentes. Existen otras 
muchas aplicaciones en las cuales es necesa- 
rio medir el nivel luminoso con precisión o una 
magnitud que pueda transformarse en nivel 


luminoso. Para estos casos deberemos dispo- 
ner de un circuito que convierta el nivel en 
una cantidad manipuladle por el ordenador, 
esto es, un conversor de magnitudes analógi- 
cas en digitales. Para otras aplicaciones, ade- 
más, hemos de ser capaces de captar una lar- 
ga secuencia de valores que se producen en 
un breve período de tiempo y con unas con- 
diciones de temporización determinadas. Para 
estos casos diseñaremos los circuitos de apo- 
yo necesarios para "congelar" las señales y 
después darles el tratamiento oportuno. 

En los sucesivos capítulos veremos la 
forma de diseñar y montar estos diferentes 
circuitos para tener acceso a otros tipos más 
interesantes de señales. 
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NATURALEZA Y TECNOLOGIA 


Programa de conversión 
de temperaturas 



IEMPRE que tocas un cuer- 
po, tu sentido del tacto te 
permite hacer una estima- 
ción aproximada de su tem- 
peratura; sin embargo, no 
podemos hacerlo de una for- 
ma cuantitativa. 

Además debemos te- 
ner en cuenta que los efectos producidos por 
la conductividad de los cuerpos dan lugar a 
confusión en la apreciación de la temperatura 
mediante sensaciones fisiológicas. Por ello, el 
metal nos parece más frío que la madera, sin 
que ello signifique que están a distinta tempe- 
ratura. 


Para poder medir con aparatos la tem- 
peratura de un cuerpo, se recurre al hecho de 
que las variaciones de temperatura van acom- 
pañadas de variaciones en alguna propiedad 
del cuerpo. Por ejemplo, los cuerpos aumen- 
tan de volumen al ser calentados y se contraen 
al ser enfriados. 

Este es el caso de los termómetros de 
dilatación, en los que una columna líquida va- 
ría su longitud en función de la temperatura, 
asignando de esta forma a cada longitud un 
valor numérico, obteniéndose la cuantificación 
deseada. 

Y así llegamos a las escalas de tempe- 
ratura, que van a depender del valor numéri- 
co asignado a cada longitud de la columna de 
líquido. 

Las tres escalas que debes conocer son: 


— CELSIUS (o escala centígrada). 

— KELVIN (o escala absoluta). 

— FARENHEIT. 


La escala Celsius se caracteriza por te- 
ner 0°C en el punto de fusión del hielo y 
100° C en el punto de ebullición del agua. 

Kelvin se basa en las propiedades de 
los gases ideales. Las temperaturas del hielo 
fundente y el agua en ebullición corresponden 
a 273, 15° K y 373,13° K respectivamente, 

Se define esta escala a partir del llama- 
do punto triple del agua, que es el punto en el 
que coinciden en equilibrio los tres estados 
(sólido, líquido y gaseoso) del agua. 

Con ello el Kelvin, unidad de tempera- 
tura termodinámica del sistema internacional, 
se define como la fracción 1/273,16 de la tem- 
peratura termodinámica del punto triple del 
agua, 

A la temperatura de O’K se le llama 
cero absoluto, ya que a esa temperatura las 
moléculas cesan de moverse; por tanto, es la 
menor temperatura posible. 


CELSIUS 50 

n 

íes 


KELVIN 3Z3 
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373. 


FARENHEIT 122 
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1 REMI |***f W *«*««** ******** tf O** ***** 

2 REM ** PROGRAMA DE CONVERSION DE TEMPERATURAS El 

3 REM **********M* ************ ************* ****** 

i o cus 

20 SCREEN 2 

30 PRINT " QUE DPC IQN DESEAS" 

40 PRINT "1/ PASAR DE CELSIUS A KELViN Y PARENME IT 1,1 
SO PRINT "2/ 'PASAR DE KELViN A CELSIUS Y FARENHEIT" 

60 F'RINT "'3/ PASAR DE PARENME IT A CELSIUS Y KELVIN" 

65 PRINT SPRINT ¡PRINT 
70 INPUT R 

SO 1F R=1 THEN GD5UB 300 
90 IF R-2 THEN SOQUE 400 
100 IF R=3 THEN GCSUB 500 
110 END 

300 REN ************************************* 

301 REM ** SUBRUTINA CONVERSION DE CELSIUS ** 

302 REM ***************** ******************* * 

305 INPUT " QUE TEMPERATURA TIENES EN GRADOS CELSIUS" ; TC 
310 CLS 

320 LET TK-TG+273 

330 LET TF=INTU-S*TC+32) 

340 PRINT "CELSIUS" $ TC; 11 KELVIN" ; TKs " PARENME I T " ; TF 

350 GOSUB 1000 

360 GOSUB 2000 

370 GOSUB 5000 

390 RETURN 

400 REM ** ** *** * * #**#*** : **-*#,# ti# * *********** 




401 REM *¥ SUBRUTINA CONVERSION DE KELVIN ** 

402 REM ************************************ 











405 INPUT " QUE TEMPERATURA TIENES EN GRADOS KELVIN" J TK 
410 CLS 

420 LET TC-TK-273 

430 LET TF=1NT( I.BITC+32) 

440 PRINT "CELSIUS" ; TC; " KELVIN" ; TK: " PARENME IT” ; TF 

450 GOSUB 1000 

460 GOSUB 2000 

470 GOSUB 3000 

400 RETURN 

500 REM *************************************** 

501 REM ** SUBRUTINA CONVERSION DE FARENHEIT ** 

502 REM ************* *********4** ****** ******** 

505 INPUT “ QUE TEMPERATURA TIENES EN GRADOS FARENHEIT " ; TF 
510 CLS 

520 LEI TC-(TF-321/1«3 
530 LET TK=TC*273 

540 PRINT "CELSIUS"; TC; " KELVIN" ; TK j " FARENHEIT " ¡ TF 

550 GOSUB 1000 

560 GUQUB 2000 

570 GOSUB 3000 

500 RETURN 

1000 REM ************************** ******* ******* 

1 001 REM ** SUBRUTINA DE DIBUJO DE TERMOMETROS #* 

1002 REM f*********************************** t* *< 

1 005 LET Y- 190 
1010 LET X=20 
1020 FDR J=1 TC 3 
1030 PSET CX, Y> 

1040 POR I- 1 TC 10 

1050 READ A , B 

1060 LET A=A*2: LET B=B*2 

1070 LET A*=STR* <A) ; LET B=B*t-l):LET B*-STRS<B) 

1090 LET DIB$="M M +" + l, i-A4 + " , l, + ,, + "+Bí 
1090 DRAH DI B$ 

1100 NEXT I 
1110 LET X=X+150 
1120 NEXT J 
1130 RETURN 

2000 REM ********************************* 

2001 REM ** SUBRUTINA, DE DIBUJO ESCALAS ** 

2002 REM ********************************* 

2005 LET A=27 



2010 POR 1=1 TO 3 

2020 LET B— Y— 36 






2030 POR J=1 TO 14 








2040 PSET (A*B) 
2050 DRAut +0" 

2060 LET B=B-1 O 
2070 NEXT J 
2060 LET A=A-H50 
2090 NEXT I 
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2100 FOR 1=1 TO 9 
2110 READ A,B,C$ 

2120 LOCATE fi.R: PRINT C* 

2130 NEKT I 
2140 RETÜRN 

3000 REM ******** *****;*#********I*************f ***** 

3001 RÉM * + BUBRUTINñ TEMPERATURA CORRESPONDIENTE ** 

3002 REM 1 ** ********** fin ******************** ******** 

3005 LET YY—Y-3 
3010 LET )í =32 

3015 IF tone THEN LET TC=llO 
3020 T=í NT í TC+62Í 
3030 FDR 3=1 TO 3 
3040 PSET ÍX,YY> 

3050 DRAW 
3060 X=X+150 
3070 NEXT I 
3080 RETURN 

6000 DA TA ' +0 , + 12 , +3 , +3 , +0 , +70, + 1 . +3 . +4 . +0 , +1 , -3 , +0 , -70 1 +3 , -3, +0 «-12,-12, +0 
6010 DATA +0. + 12.+3.+3. +0 , +70, + 1 , +3 , +4 . +0, + 1 . -3 j +Ó , -70 * +3 , “3 . +0 . -1 2 , * 12 , +0 
6020 DATA h- 0, + 12,+3,+3* +0 , +70, + 1 ,+3 ■ +4, +0, +1 - -3 , +0 t -70 , t-3. -3 , +0 , - i 2 , -i 2 , +0 
6030 DATA 16 T 2 . "O M6 , 19 . k, 237" . 16 , 36. ”32> 

6040 DATA 1 9 , 1 , " -1S%1 9, 1 9 , 7*255" * 1 9 ,39, "0 J1 
6050 DATA 4 . 1 > M 1 00*' , 4, 19 , 11 373 % 4 ,37 , U 2Í2 >1 


3020 T = INT(TC/10‘15 + 81) 

3040 PLOT X,YY 
3050 DRAWR 0,T 

6030 DATA l,20, ,l 0" l 10 l 20,"237 ,, t 21 l 20 1 "32" 
6040 DATA 1,22 ( “-18", 10,22, "255“ 1 22,22 1 ,, 0‘ l 
6050 DATA 1,11/100“, 10, 11 ,"373", 20,11:212 


COMMODOBE 

Quitar las líneas: 
350 
360 
370 
450 
460 
470 
550 
560 
570 

1.000- 1.130 

2.000- 2.140 

3.000- 3.080 


ZX-SPECTRUM 

20 no se pone 
110 GOTO 9999 
1005 LET Y = 1 
1030 PLOT X,Y 
1070 no se pone 
1080 no se pone 
1090 DRAW A.B 
2020 LET B = Y + 36 
2040 PLOT A,B 
2050 DRAW -3,0 
2060 LET B = B + 10 
3005 LET YY = Y + 3 
3040 PLOT X,YY 
3050 DRAW 0,T 


Para la conversión de escalas utilizare- 
mos la siguiente igualdad: 

C _ K-273 _ F-32 
100 100 180 

Con ello, si suponemos según la figura 
que tenemos 50* C vemos que habrá: 

50 _ K-273 
100 100 ' 

K = 323* K 

Y la temperatura en Farenheit será: 

50 F-32 

100 180 

F = 122° F 


Adaptación a otros ordenadores 

AMSTRAD 

20 MODE 2 
1005 Y - 1 
1010 X- 40 
1030 PLOT X,Y 
1060 A = A’3;B - B*3 
1 070 no se pone 
1 080 no se pone 
1090 DRAWR A.B 
2005 A = 47 
2020 B = Y + 54 
2040 PLOT A.B 
2050 DRAWR -3,0 
2060 B = B+ 15 
3005 YY = Y + 3 
3010 X - 58 


PROBLEMAS MATEMATICOS 
Matrices 

Las matrices son unas determinadas es- 
tructuras matemáticas representadas como 
conjuntos de números reales escritos en filas 
y columnas. 

Dado que son operadores, se podrán 
sumar, restar, multiplicar, etc. 
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También se definirá como determinan- 
te de una matriz al valor numérico de dicha 
matriz. En un próximo libro aparecerá un pro- 
grama para calcular determinantes. 

Como aplicaciones de las matrices en 
el cálculo tenemos la resolución de sistemas 
de ecuaciones, además de la representación 
de vectores y operaciones con éstos, Los vec- 
tores no son más que un caso particular de las 
matrices que sólo tienen una fila o una columna, 
na. 

Con el programa que aquí se presenta 
podremos sumar, restar y multiplicar matri- 
ces. 

Comienza con la presentación de un 
menú en el que mediante los números 1, 2 ó 
3 elegiremos la opción, 

A continuación, dependiendo de la op- 
ción elegida, el programa irá a la subrutina 
que corresponda (suma/resta/multiplicación), 
en la cual se pide las dimensiones de las ma- 
trices operandos. 

Habrá que tener en cuenta que, tanto 
en la suma como en la resta, las matrices de- 
ben tener la misma dimensión para poderse 
efectuar la operación. 

Si esto no es así, el programa nos lo in- 
dicará con un mensaje de error y volverá al 
menú principal, 

Si las dimensiones son correctas, el pro- 
grama irá pidiendo sucesivamente los datos 
de cada matriz por filas. 

Todas estas filas van siendo almacena- 
das en las matrices A y B del programa Basic. 

La matriz A se lee en la subrutina que 
comienza en la línea 2000. La matriz B se leerá 
en la subrutina que comienza en 3000. 

Una vez realizadas las lecturas de las 
dos matrices, en la subrutina que comienza en 
la línea 4000 se sumarán/restarán las dos ma- 
trices. Si es un producto la opción elegida, éste 
se realizará en la subrutina que comienza en 
la línea 4200. 

Hay que hacer notar que la subrutina 
que realiza la suma es la misma que la que 
hace la resta. Esto se consigue cambiando de 
signo sucesivamente todos los elementos de la 
matriz B (líneas 670 a 710). 

Por último, después de realizarse la 
operación, con sentencias INPUT se pregunta 


si se quiere salir del programa o no. Éste fina- 
lizará si la respuesta es afirmativa. Si no es así, 
el programa volverá a presentar el menú del 
principio. 

A continuación vemos un ejemplo de 
una suma de matrices: 

La matriz A es la siguiente: 
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La matriz B será: 
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Y la matriz 
filas y columnas: 

suma tendrá las siguientes 
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10 REM * * » PRESENTAD I ON* * * 

20 SCREEN 1 
30 CLS 

40 PtiíM T TAft(8>; ,h M A T R l C E 5” 
50 PRINT tFftJNTs PRIttT 


40 


60 PRINT TAB47) i "1 SUMA" s PRINT 
70 PRINT TAB <7)s <1 2 RESTA" : PRINT 
80 PRINT TAB<7);"3 PRODUCTO" : PR INI 
90 INPUT "OPCION ELEG 1 DA; : A 
1 00 1F A=1 THEN GOTO 200 
110 IF A=2 THEN GOTO 500 
120 IF A=3 THEN GOTO 800 
130 GOTO 10 

200 REM ***SUMA DE MATRICES**'* 

210 I NFUT "No. FILAS DEL SUMANDO ls r, :Fl 
220 IÑPUT ”No* COLUMNAS DEL SUMANDO i s " s El 
230 INPUT “No. FILAS DEL SUMANDO 2:"iF2 
240 INPUT "No. COLUMNAS DEL SUMANDO 2¡"¡C2 
250 IF F 1 =F2 AND Cl~C2 THEN 6QTQ 320 
260 CLÍ: PRINT : PRINT : PRINT ¡PRINT 
270 PRINT "NO SE PUEDEN SUMAR MATRICES" 

280 PRINT "DE DISTINTO NUMERO DE 11 
290 PRINT "FILAS O COLUMNAS" 

300 POR X=Q TO 2000 í NEXT X 
310 GOTO 10 

320 CLSí DIM AÍFI.ClJ :DIM BÍF2.C2) 

330 PRINT 11 INTRODUZCA ELEMENTOS DEL SUMANDO 1" SPRINT ¡PRINT 
340 GOSUB 2000 

350 PRINT "INTRODUZCA ELEMENTOS DEL SUMANDO 2" ¡PRINT ¡PRINT 
360 BQSUB 3000 

370 CLS?PfiINT TAB (8) ¡ "MATRIZ SüMA"íPRÍNT ¡PRINT ¡PRINT 
380 GOSUB 4000 

390 INPUT "Pulse s oara sal ir “del programa q cualquier tecla para continuar' 1 : Z* 
400 IF Z*=“3‘ k GR Z$="S" THEN END 
410 CLEAR 
420 GOTO 10 

SChD REM *** resta de matrices*** 

510 INPUT"No. FILAS DEL MINUENDO :"¡Fl 
520 INPUT " No . COLUMNAS DEL MINUENDO s " :C1 
530 INPUT "No, FILAS DEL SUSTRAENDO ¡ " í F2 
540 INPUT" No* COLUMNAS DEL S U ST RAEND O ¡ " t C 2 
550 IF F1-F2 AND Cl =C2 TREN GOTO 620 
560 CLS; PRINT : PRINT ¡PRINT ; PRINT 
570 PRINT ,J N0 SE PUEDEN RESTAR MATRICES" 

5B0 PRINT " DE DISTINTO NUMERO DE" 

590 PRINT "FILAS O COLUMNAS" 

600 POR X=0 TO 3000; NEXT X 
610 GOTO 10 

620 CLSrDIM A í F1 * C1 ) ¡DIM B£F2,C2> 

630 PRINT "INTRODUZCA ELEMENTOS DEL MINUENDO PRINT ¡PRINT 
640 GOSUB 2000 

650 PRINT "INTRODUZCA ELEMENTOS DEL BUSTRAENDO "¡PRINT ¡PRINT 

660 GOSUB 3000 

670 FGft N= 1 TO F2 

680 FDR K=1 TD C2 

690 LET EMP-MO=-BÍN,K> 

700 NEXT K 
710 NEXT N 

720 CLSí PRINT TAB <8 ) : "MATRIZ DIFERENCIA" s PRINT ¡PRINT ¡PRINT 
730 GOSUB 4000 

740 INPUT "Pules s oar a salir del programa □ cualquier tecla para continuar Z* 
750 IF Z^-"s 4 OR Z*="S" THEN END 
760 CLEAR 
770 GOTO 10 

800 REM í* «MULTIPLICACION DE MATRICES*** 

810 INPUT "No. FILAS DEL MULTIPLICANDO :"¡Fl 

B20 INPUT "No. COLUMNAS DEL MULTIPLICANDO ¡";C1 

830 INPUT "No. FILAS DEL MULTIPLICADOR : " ¡ F2 

840 INPUT r ’No. COLUMNAS DEL MULTIPLICADOR : " : C2 

950 IF C1=F2 THEN GOTO 940 

860 CLS: PRINT ¡PRINT ¡ PRINT ¡PRINT 

070 PRINT "ESTAS MATRICES NO SE PUEDEN" 

8 SO PRINT "MULTIPLICAR PORQUE EL NUMERO" 

090 PRINT "DE COLUMNAS DEL MULTIPLICANDO" 

900 PRINT "ES DISTINTO DEL NUMERO DE" 

910 PRINT "FILAS DEL MULTIPLICADOR" 

920 FOR X=0 TO 2500 ¡NEXT X 
930 GOT0 10 

940 CLS: DIM A (F 1 , Cl ) = DI M b|f2,C2> 

950 PRINT "INTRODUZCA ELEMENTOS DEL MULTIPLICANDO PRINT ¡PRINT 
960 GOSUB 2000 

970 PRINT "INTRODUZCA ELEMENTOS DEL MULTIPLICADOR "¡PRINT ¡PRINT 
980 60SUB 3000 

990 CLS: PRINT T AB i 83 : "MATRIZ PRODUCTO " : PRI NT : PRINT 3 PRINT 
1000 GOSUB 4200 

1010 INPUT "Pulse 3 para salir del programa o cualquier tecla para conti nuar 1 ’ ; ¿% 
1020 IF Z*^"5" OR ZS~"S" THEN END 
1030 CLEAR 
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1040 GOTO 10 

2000 REM #** LECTURA PRIMERA MATRIZ*'#* 

20 i O FQR N-l TO F1 

2020 PRINT "FILA *' : IMs PRINT ; PRINT 

2030 FÜR K= 1 TO Cl 

2040 INPUT Á(N,K> 

2050 NEXT K 
2060 FR I NT í PRINT 
2070 NEXT M 
2080 CLS 

2090 FOR N=*l TO Fl 
2100 PRINT 41 F ILA 
2110 FDR K-l TO Cl 
2120 PRINT ñ'íftUK): 1 * " ; 

2130 NEXT K 
2140 PRINT : PRINT 
2150 NEXT N 

2160 FDR X=1 TD 3000: MEXT X 
2170 CLS 
2180 RETURN 

3000 REM *#* LECTURA SEGUNDA MATRIZ*** 
3010 FOR N=1 TO F2 

3020 PRINT "FILA ,f -N: PRINT : PRINT 
3Q30 FOR K=1 TO C2 
3040 ÍNPüT BÍN,K) 

3050 NEXT K 
3060 NEXT N 
3070 CLS 

3080 FOR N-l TO F2 
3090 PRINT 41 FILA " :N: M : JJ s 



3100 FOR K= 1 TD C2 

31 10 PRINT B ÍN . K) t : 

* 

■ 











3120 NEXT K 

3130 PRINT ¡PRINT 

3140 NEXT N 

















4* 










3150 FDR K-l TO 
3160 RETURN 

3000 : f 

MEXT X 













4000 REN ** «OPERACION 

SUMA/RE5TA 

DE MATRICES#** 









4010 Fuñí N=1 TU 

4020 PRINT "FILA 

r 1 

,l ;N: " 

. Kl « 

■ ■* 













4030 FOR K-l TO Cl 

A Ti A r'n CJv f M 1 f.t \ -t, £■ i M 













t vj ~ v i oán i 

4050 NEXT K 












4060 PRINT : PRINT 

4070 NEXT N 













4080 RETURN 

4200 REM *#*OPERACÍON 
4210 FOR N“ 1 TO Fl 

PRODUCTO DE MATRICES*## 

















4220 PRINT "FILA 
4230 FOR F= 1 TO 

" ; N: 11 : 
C2 

.ii. 

■ f 









4240 LET W=0 














4250 FOR K*=l TO 
4260 LET W=íA(N. 

Cl 

K ) *& ÍK,FÍ i +W 














4270 NEXT f 

42S0 PRINT W r " " 

m 















i dt Bv i f i A ! ■ i ■' i 

4290 NEXT F 

w 













4300 PRINT sPRINT 

4310 NEXT N 














4320 RETURN 














Variaciones para otros ordenadores 


AMSTRAD 

20 MODE 1 
410 no se pone 
760 no se pone 
1030 no se pone 

ZX'SPECTRUM 


MSX 

20 SCREEN O 
410 no se pone 
760 no se pone 
1030 no se pone 


20 no se pone 

400 ...THEN GOTO 9999 

410 no se pone 


750 ...THEN GOTO 9999 
760 no se pone 
1020 ...THEN GOTO 9999 
1030 no se pone 

COMMODORE 

20 no se pone 

260 PRINT CHR$(147) por CLS 
320 PRINT CHR$(147) por CLS 
370 PRINT CHR$(147) por CLS 
410 no se pone 

560 PRINT CHR$(147) por CLS 
620 PRINT CHR$(147) por CLS 
720 PRINT CHR$(147) por CLS 
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760 no se pone 

860 PRINT CHR$(147) por CLS 
940 PRINT CHR$( 1 47) por CLS 
990 PRINT CHR$(147) por CLS 
1030 no se pone 
2080 PRINT CHR$(147) por CLS 
2170 PRINT CHR$(147) por CLS 
3070 PRINT CHR$fl471 cor CLS 


SOCIEDAD 

■ La conjugación verbal 

En el programa que a continuación pre- 
sentamos están definidas las conjugaciones de 
los verbos regulares de la lengua española. 

Como todos sabemos, en nuestro idio- 
ma, a diferencia de otras lenguas también de 
origen romance, la terminación verbal es lo 
que caracteriza todos los tiempos y todas las 
personas de los verbos; en el castellano se 
puede prescindir de los pronombres persona- 
es que acompañan a las personas de los ver- 
bos; solamente con los morfemas que se les 
unen a las raíces podemos determinar cuál es 
el modo, el tiempo y la persona de la forma 
que se analice. 

Hemos enunciado todas las formas im- 
personales y las formas personales en sus tres 
modos: indicativo, subjuntivo e imperativo. 

Con este programa se podrá obtener 
cualquier tiempo verbal a partir de la intro- 
ducción del verbo en infinitivo. 

Unicamente habrá que tener en cuenta 
que el verbo que introduzcamos debe ser re- 
gular, ya que si no lo es, el programa no fun- 
cionaría correctamente, 

Indagando en la construcción del pre- 
sente programa, se puede ver en la línea 180 


el dimensionamiento de tres matrices de tres 
dimensiones cada una, a saber: 

1$ para almacenar todos los tiempos de 
indicativo 

S$ para almacenar el modo subjuntivo 

0$ para almacenar el presente de im- 
perativo. 

La primera dimensión determina la con- 
jugación, la segunda el tiempo verbal y la ter- 
cera la persona. Así, en las líneas 190 a 370 se 
van leyendo sucesivamente todas las desinen- 
cias verbales y se van almacenando en estas 
matrices para después concatenarlas con la 
raíz del verbo introducido por el usuario para 
presentar en pantalla el tiempo que se ha ele- 
gido. 

El programa consta de un menú donde 
elegiremos con un número del 1 al 4 el modo 
verbal, después de haber introducido el ver- 
bo a conjugar, en infinitivo y en mayúsculas. 

A continuación, dependiendo de la op- 
ción elegida, aparecerá en pantalla otro menú 
(a excepción de las formas no personales que 
aparecen directamente), donde eligiremos el 
tiempo verbal que queremos que sea presen- 
tado, 

Al final de todo esto el ordenador nos 
hará dos preguntas acerca de si queremos ob- 
tener otro tiempo verbal y a continuación si 
queremos conjugar otro verbo. Todo esto se 
hace en la subrutina FINAL DEL PROGRAMA 
(línea 1890). 

La clave de todo el programa la tene- 
mos en las líneas 380 a 440 en las cuales alma- 
cenamos en sendas variables alfanuméricas la 
raíz y la desinencia del verbo introducido. 
A partir de esta última obtendremos la conju- 
gación de que se trata. 


1 SCREEN 1 

10 REM ** «VERBOS REGULARES*** 

20 REM *** PRESENTACION*** 

30 CLS 

40 PRINT ¡ PRINT i PRINT : PRINT : PRINT 
SO PRINT TAB í 10) i CONJUGACION" i PRINT : PRINT 
40 PRINT TAB ( 13) : “DE" i PRINT rPRlNT 
70 PRINT TAEKB) % "VERBOS REGULARES" 

80 FOR F*=l TO 20Ú0 ¡NEXT F 

90 REM ***LECTURA PRESENTACION TIEMPOS VERBALES**-* 
100 0IM Tí (10) 

110 FOR A=1 TO 10 
120 READ Tí (A) 

130 NEXT A 
140 DIN 

150 FQR ñ“l TO 6 
160 READ UfcíAí 
170 NEXT A 

ISO DIN Ií (3,10,41 : DIM S* (3 , a , 6) : DIM 04(3,1,3) 

190 FOR E-l TO 3 
200 FOR A=1 TO 10 
210 FOR C-i TO 6 
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220 READ I4(E,A,C> 

230 NEXT C 

240 NEXT A 

250 NEXT E 

260 FDR E=i TD 3 

270 FQR A=i TO 6 

260 FDR C*1 TD 6 

290 READ S*tE,A.C> 

300 NEXT C 

310 NEXT A 

320 NEXT E 

330 FüR E=1 TO 3 

340 FDR 0.1 TO 3 

350 READ U*ÍE, 1 t C> 

360 NEXT C 
370 NEXT £ 

380 CLSiINPUT “VERBO A CONJUGAR (EN INF INÍTIVO) ¡¡ ■* i X* 


390 LET L=LEN (X$> 




400 LET HÍ-LEFT* ÍXSLL-2* 

410 LET 2 $=R I GHT 1» í X $ , 2 ) 

420 ÍF 1%- " AR" THEN LET W-1:LET 




P*= 

z " ADO ,J 


430 IF Z*="ER" THEN LET W=2:LET P*= M IDO" 

440 IF 2*=" IR" THEN LET W=3?LET p*=" IDO" 

450 REM * * í MENU DE NODOS VERBALES*** 

460 CLS: F'RINT TABUO)s"M O D ü S" 

470 PRINT ; PR I N T :PRINT SPRINT 

480 PRINT TABí4íí"l FORMAS NO PERSONALES" : PRINT ¡PRINT 
490 PRINT T AB í 6 > ; “2 INDICATIVO" t PRINT :PRINT 
500 PRINT T AB í B > ; '"3 SUBJUNT I V0" : PRINT ; PRINT 
5ÍQ PRINT TAB(B}j"4 IMPERATIVO" : PRINT s PRINT 
520 INP-UT " QPC I ON ELEGI DA: Pl i & 

5$Ü IF B< t OR B>4 THEN GOTO 450 
540 CLS 

350 IF 6= i THEN GOTO 590 


560 

IF 


THEN 

GOTO 

720 

570 

IF 

B=3 

THEN 

GOTO 

990 


590 IF B=4 THEN GOTO 1220 

590 REM ** «FORMAS NO PERSONALES*** 

600 PRINT TAB (ICO s "F ORNA S": PRINT í PRINT 

610 PRINT TAB<4)¡"N O PERSONAL E S L, :PRINT : PRINT 

620 PRINT TAB (LÓ> i "SIMPLES" i PRINT 

630 PRINT "INFINITIVO “:X$: PRINT 

640 IF W-l THEN LET Q* ANDO" i GOTO ¿60 
650 LET lÉNDO" 

66 Ó PRINT "GERUNDIO. “ ¡ H* ¡ G*i PR INT 

670 PRINT "PARTICIPIO H*: P*: PRINT: PRINT 

680 PRINT TA& (8) ¡ "COMPUESTAS" ¡PRINT 

690 PRINT "INFINITIVO “¡"HABER PRINT , 

700 PRINT "GERUNDIO " í "HABIENDO " ;HÍ ;P$-i PRINT 

710 GOTO 1900 

720 REH *** INDICATIVO* ** 

730 CLS: PRINT TABí6í:“I N D I C A T I V ü" 

740 PRINT SPRINT : PRINT 

750 PRINT TAB Í5) s " 1 PRESENTE" 

760 PRINT TAB (5> : "2 PRET , IMPERFECTO" 

770 PRINT TAB (Sí : "3 PRET* .INDEFINIDO" 

790 PRINT TABí5>¡"4 FUTURO IMPERFECTO" 

790 PRINT TA& (5) : "5 CONDICIONAL SIMPLE" 

800 PRINT TAB (5> ; "6 PRET. PERFECTO" 

BlO PRINT TAB(S ) ; H 7 PRET* PLUSCUAMPERFECTO" 

820 PRINT TAB (5) ; "G PRET * ANTERIOR " 

830 PRINT TAB (5) i “9 FUTURO PERFECTO" 

840 PRINT TAB (4);" 10 CONDICIONAL COMPUESTO" 


850 INPUT "OPCION ELEGIDA: "sN 

860 IF N< 1 OR N> 10 THEN GOTO 730 





870 CLS 

880 PRINT TAB (Sí :TSÍ Ni : PRINT i PRINT : PRINT ¡PRINT 

890 GQ5UB 1820 

900 ÍF N>5 THEN GOTO 950 

910 FGR X=1 TO 6 

920 LOCATE 5+X i 14: PRINT H $ : 1 % ( W * N , X ) 

930 NEXT X 
940 GOTO 1900 
950 FOR X-l TO b 

960 LOCATE 5+X , 1 1 : F'Rí NT 1* í N „ N , X ) : " " ;H$iP* 

970 NEXT X 

980 GOTO 1900 

990 REM ***SUBJUNTI VO*** 

1000 CLS: PRINT TABÍ6)¡"8 U & J U N T I V 0“ 

1010 PRINT : PRINT : PRINT 


1020 

PRINT 

TAB (5) : 

" 1 

PRESENTE” 

1 030 

PRINT 

TA&Í5J : 

"2 

PRET* IMPERFECTO" 


1040 PRINT TAB (Sí ¡ "3 FUTURO IMPERFECTO" 
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1050 PRINT TABI5);"4 PRET, PERFECTO" 

1060 PRINT TAB(5)i"5 PRET, PLUSCUAMPERFECTO " 

1070 PRINT TA& <5 ) : "6 FUTURO PERFECTO» 
tOBO INPLJT "OPCION ELEGIDA: " : N 
1090 IF N < 1 ÜR N ;6 THEN GOTO 1000 
1 LOO CLS 

1110 PRINT T AB ( 5) ; L§ í N > ¡PRINT ; PRINT :PR1NT : PRINT 

1 120 GQSUB 1820 

1130 IF N >3 THEN GOTO 11B0 

1140 POR X = l TO 6 

USO LOCATE 5+X t i4jPR¡NT H*; 5* ( W , N , X > 

1160 NÉXT X 

1170 GOTO 1900 

1180 FOR X ~ 1 TO £> 

1190 LOCATE 3+X k 1 1 s PFÍINT S*ÍN,N,X>í" '‘rHfsPt 

1200 NEXT X 

1210 GOTO 1900 

1220 REM *** IMPERATIVO*** 

1230 PRINT TAB (5>í ''PRESENTE 1 ': PRINT = PRINT i PRINT i PRINT 
1240 FOR X-l TO 3 

1250 LOCATE 5+X, 14; PRINT Hf; Ol(W ,1 , X J 
1260 NEXT X 

1270 GOTO 1900 

1290 DATA PRESENTE, PRETERITO IMPERFECTO , PRETERITO INDEFINIDO, FUTURO IMPERFECTO, C 

ONDICIONAL SIMPLE, PRETERITO PERFECTO *FR£TER ITO PLUSCUAMPERFECTO , PRETERITO ANTERÍ 
Oft, FUTURO PERFECTO , CONDICIONAL COMPUESTO 

1290 DATA PRESENTE, PRETERITO IMPERFECTO , FUTURO IMPERFECTO, PRSTER I TO PERFECTO , PRE 

TERITO PLUSCUAMPERFECTO , FUTURO PERFECTO 

1300 REM *#*LECTURA TERMINACIONES VERBALES*** 

1310 DATA O, AS, A, AMOS, AISLAN 

1320 DATA ABA, ABAS, ABA, ABAMOS, ABAIS .ABAN 

1330 DATA E , ASTE ,0, AMOS, ASTE I S , ARDN 

1340 DATA ARE, ARAS, ARA, AREMOS, AREIS, ARAN 

1350 data aria, arias. aria, ariamos,ariais„arian 

1360 DATA HE, HAS, HA, HEMOS, HABEIS, HAN 

1370 DATA HABIA , HABIAS , HABIA , HABI AMUS, HABI AÍS , HABIAN 

1 380 DATA HUBE, HUBISTE, HUBO, HUBIMOS, HUBISTEIS, HUBIERON 

1390 DATA HABRE, HABRAS, HABRA, HABREMOS, HABREIS, HABRAN 

1400 DATA HABRI A ,HABRI AS , HABRIA, HABRIAMOS , HABRIAIS . HABRIAN 

1410 DATA D,ES,E,EMDS,EI3,£N 

1420 DATA IA, I AS, IA, IAMOS, I AIS, I AN 

1430 DATA I,ISTE, 10, IMDS.ISTEIS, IERON 

1440 DATA ERE, ERAS, ERA, EREMOS, ERE 15. ERAN 

1450 DATA £R 2 A , ÉRI AS , ERI A , ER I AMOS , ERI Al S , £R I AN 

1460 DATA HE, HAS, HA, HEMOS, HABEIS, HAN 

1470 DATA HABI A , HABÍAS , HABIA, HABIAMOS , HABI AIS, HABIAN 

1490 DATA HUBE, HUBISTE, HUBO ,HUBI MOS, HUBISTEIS-HUB IERON 

1490 DATA HABRE , HABRAS , HABRA , HABREMOS , HABRE 1 5 , HABRAN 

1500 DATA HABRIA, HABRIAS, HABRIA, HABRIAMOS, HABRIAIS, HABRIAN 

1510 DATA 0 , ES , E , IMGS , í S , EN 

1520 DATA IA, IAS* I A . IAMOS* I AIS . IAM 

1530 DATA I , ISTC, 10, IMQS, ISTEIS, IERON 

1540 DATA IRE, IRAS, IRA, IREMOS. IREIS. IRAN 

1550 DATA IRIA, IRIAS, IRIA, IRIAMOS, IRIAIS, IRIAN 

1560 DATA HE, HAS f HA. HEMOS, HABEIS, HAN 

1570 DATA HABIA, HABI AS, HABÍ A, HABI AMOS, HABI AIS, HABIAN 

1580 DATA HUBE, HUBISTE, HUBO, HUBIMOS, HUBISTEIS, HUBIERON 

1590 DATA HABRE, HABRAS, HABRA, HABREMOS, HABREIS. HABRAN 

1 600 DATA HABR I A , HA&R I AS . HABR I A , HABR I AMOS , HABR I A 1 5 , HABR I AN 

1610 DATA E , ES, E ,, EMQS , E IS, EN 

1620 DATA ARA , ARAS . ARA . ARAMOS „ ARA I 5 . ARAN 

1630 DATA ARE, ARES, ARE, AREMP5 4 AREIS, AREN 

1640 DATA HA V A, HAY AS , HA VA, HA VAMOS, HAYAIS. HAYAN 

1650 DATA HUBIERA, HUBIERAS, HUBIERA, HUBIERAMOS .HUBIERA 15, HUBIERAN 
1660 DATA HUBIERE* HUBIERES, HUBIERE, HUBIEREMOS, HUBIEREIS, HUBIEREN 
1670 DATA A, AS, A, AMOS, AIS, AN 

1680 DATA I ERA, I ERAS , IERA , I ERAMOS t IGRA I S, IERAN 

1690 DATA IÉRE* IERES, IERE, I EREMOS, I ERE IB, IÉREN 

1700 DATA HAYA, HAYAS , HAYA , HAYAMOS , HAYA IS , HAYAN 

1710 DATA HUBIERA, HUBIERAS, HUBIERA, HUBIERAMOS, HUBIERAIS, HUBIERAN 

1720 DATA HUBIERE, HUBIERES, HUBIERE. HUBIEREMOS, HUBIEREIS. HUBIEREN 

1730 DATA A, AS, A. AMOS, AISLAN 

1740 DATA IERA, [ERAS, IERA, I ERAMOS, IERAIS, IERAN 
1750 DATA IERE. IERES . 1 ERE, I EREMOS , I EREIS , I EREN 
1760 DATA HAY A, HAYAS, HAY A, HAYAMOS, HAY AIS, HAYAN 

1770 DATA HUBIERA .HUBIERAS. HUBIERA, HUBIERAMOS, HUBIERAIS, HUBIERAN 

1780 DATA HUBIERE, HUBIERES, HUBIERE, HUBIEREMOS, HUBIEREIS, HUBIEREN 

1790 DATA A TELEMOS NOSOTROS, AD VOSOTROS 

1800 DATA E TU .AMOS NOSOTROS, ED VOSOTROS 

1810 DATA E TU, AMOS NOSOTROS, ID VOSOTROS 

1820 LOCATE 6,3rPRINT "YO" 

1330 LOCATE 7,3:PRINT "TU"' 

1840 LOCATE 8,3: PRINT "EL" 
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1850 LOCATE 9,1* PRINT "NOSOTROS" 

1060 LOCATE lÜ.llPRINT "VOSOTROS ** 

1870 LOCATE 11,2iPRINT "ELLOS" 

1860 RETURN 

1090 REfl ***FINAL DEL PROGRAMA*** 

1900 INPUT "OTRO TIEMPO (S/N) h ;E$ 

1910 IF E*="S" OR E*="s" THEN SOTO 4 bÓ 
^Tfte—vefífr©- — — - - 

1930 IP V*»"S" DR V*="S"' THEN SOTO 380 
1940 END 


Variaciones para otros ordenadores 

AMSTRAD 

1 MODE i 

CAMBIAR LAS SENTENCIAS LOCATE X,Y 
POR LOCATE Y,X 

COMMODORE 

1 no se pone 

30 PRINT CHR$(147) 730 PRINT CHR$(147) 
380 PRINT CHR$( 147)870 PRINT CHR$(147) 
460 PRINT CHR$( 147) 1000 PRINT CHR$(147) 
540 PRINT CHR$( 147) 1100 PRINT CHR$(147) 

Para las sentencias LOCATE ver simulación 
de ésta en tomo 1 

ZX-SPECTRUM 

1 no se pone 400 LET H$=X$(TO LEN X$-2) 
390 no se pone 410 LET Z$=X$(LEN X$-l TO) 

1940 GOTO 9999 

Todos los elementos de las senten- 
cias DATA deberán ir entre comillas. 

Todas las sentencias LOCATE X, Y: 
PRINT ... se sustituyen por PRINT AT X, Y;... 

Las matrices alfanuméricas necesi- 
tan otra dimensión. 

MSX 

Valen las mismas modificaciones que 
para el Amstrad, a excepción de la línea 1, 
que se sustituirá por: 

1 SCREEN 0 


PARA LOS MAS PEQUEÑOS 
I Conjuntos 

En esta ocasión hemos tenido que con- 
tener las ganas de entrecomillar de forma iró- 
nica el título de esta sección. Sí, creemos que 
"Para los más jóvenes 1 ', en este caso, no va de- 
dicado sólo a ellos. 

Es ya bien conocida la gran revolución 
que supusieron los conjuntos en la matemáti- 


ca moderna y cómo algunas personas, ya no 
tan jóvenes, se sentían incapaces de adaptar 
su mentalidad y trabajar con los “conjuntitos". 

No desperdiciéis esta ocasión, ni tú, 
"más joven", que estudias en este momento los 
conjuntos, ni tú, "menos joven", que nunca los 
has estudiado y siempre has querido desci- 
frarlos. 

Con este programa podrás aprender 
las bases de los conjuntos, cómo hallar su 
unión, su intersección, y cómo calcular el car- 
dinal de un conjunto. 

A grandes rasgos, aunque suponemos 
la teoría conocida, vamos a introducirte estos 
conceptos: 

— Cardinal de un conjunto es su núme- 
ro de elementos. 

— Intersección de dos conjuntos es el 
conjunto formado por los elementos comunes 
a los dos conjuntos, 

— Unión de dos conjuntos es el conjun- 
to formado por todos los elementos que hay en 
los dos conjuntos. 


A ¡S 

************ ************ 

* « * * 

I B B * 

* — C * 

* D * * * 

* E * ¥ * 

* F * 

* G S * 

* H — — --H * 

* i — -I ¥ 

t ¥ t J * 

************ ************ 


EL CARDINAL DE A ES 8 EL CARDINAL DE B ES 7 

Bg 5. 


INTERSECCION 

******************** 


* B * 

* C * 

* F * 

* G * 

* H # 

* I * 

* * 

* * 

* * 

* I 


******************** 

CARDINAL 

DE LA INTERSECCION ó 

Bg. 8 


jN ION 

******************** 


* & * 

* C * 

* D * 

* E * 

* , F * 

* G * 

¥ H * 

* 1 * 

* J I 

* * 


************* ******* 

EL CARDINAL 
DE LA UNION ES 9 

ñg 7. 
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10 REM I****#******#**#*****#***##****#*** 

20 REM H PROGRAMA DE CONJUNTOS ** 

30 REM *********************************** 

40 LEI Al ~ 10¡ LET B1=1Ú!LET Cl = 10 

50 REM t*#*|****|** ********************* ********** 

60 REM ** DIMENSIDNANDC LAS MATRICES UTILIZADAS ** 

70 REM **#*#***#*#***# ******************** ******** 

SO DIM A$ ( A 1 , B 1 ) ¡ DIM C<Cl);DIM B* ÍC 1 ) iDIM R*<Cl) 

90 CLS 

100 RANDCMIZE TlMER 
110 FOR J = 1 TO 10 

120 REM *********************************** 

130 REM ** LEYENDO LAS MATRICES DE DATOS ** 

140 REM *********************************** 

150 FOR 1=1 TO 10 
160 READ AÍíiVJÍ 
170 NEXT I 
180 NEXT J 
190 POR 1=1 TO 10 
200 READ C í I > 

210 NEXT I 

220 REM ************************************ 

230 REM ** GENERANDO CONJUNTOS ALEATORIOS ** 

240 REM ************************************ 

250 LET N1=3NT <RND*10)+1 
260 LET N2=INT (RND*lO)+l 
270 GOSUB 1000 

280 REM ***************************** 

290 REM ** PREGUNTAS DE CARDINALES ** 

300 REM ***************************** 

310 INPUT "CARDINAL DE A"sA 
320 INPUT "CARDINAL DE B"sB 

330 IF A< >C (NI > THEN PRINT "EL CARDINAL DE A ES "iCÍNl) 

340 IF BOGÍN2) THEN PRINT "EL CARDINAL DE B ES ";C<N2) 

350 REM ******************************* 

360 REM ** PRESUNTAS DE INTERSECCION ** 

370 REM ******************************* 

3S0 LET C=0 
390 GOSUB 2000 

400 PRINT "¿CUAL ES LA INTERSECCION 11 
410 FOR 1=1 TO D 
420 INPUT RStEí 

430 IF R*ín<>B*U> THEN LET C=1 
440 NEXT I 
450 CLS 

460 GOSUB 3000 

470 INPUT "CARDINAL DE LA INTERSECO I ON 11 ; O 

4B0 IF QOD THEN PRINT "EL CARDINAL DE LA INTERSECCION ES ";D 
490 CLS 

500 GOSUB 1000 

510 REM *************************** 

520 REM ** PREGUNTAS DE LA UNION ** 

530 REM *************************** 

540 LET C=0 

550 GOSUB 4000 

560 PRINT "CUAL ES LA UNION" 

570 FOR 1=1 TO D 
580 INPUT RtCD 

590 IF R*(IK>B*(U THEN LET D=1 
600 NEXT I 
610 CLS 

620 GOSUB 5000 

630 INPUT "CARDINAL DE LA UNION 1 ' :Q 

640 IF QOD THEN PRINT "EL CARDINAL DE LA UNION ES ";D 
650 TNPUT "¿QUIERES INTENTARLO OTRA VEZ"íR$ 

660 IF R$="S" OR R*="s" THEN RUN 
670 END 

1000 REM ************************************** 

1010 REM ** SUBRUTI NA DE DIBUJO DE CONJUNTOS ** 

1020 REM *******************,*********«********* 

1030 PRINT TABC10);" A TAB(3S> ; " B 

1040 PRINT TAB i 10) ; ,, ********#***"¡ i TAB <35) ;"****##******" 

1050 FGR 1=1 TO 10 

1060 IF ASU,N1)= ,É " OR A$ÍI,N2)= l " THEN LET 8=0 
1070 PRINT TAB < 1Ü) : " * " s TAB í 13} ; A* ( 3 r N 1 ) : 

1080 IF S=1 THEN PRINT " ■ — ■ — "■ 

1090 IF S=Ü THEN PRINT TAB (21) " * " ; TAB (35) í " * " f 
1100 PRINT TABÍ40) : A^U .N2) STABÍ46) ; "*" 

1110 LET S =1 
1120 NEXT I 

1 .130 PRINT TAB 1 10) 5 11 ************ » ; TAB (35) ¡ "*#*****#****'■ 

1140 PRINT 
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1150 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

5000 

5010 

50 20 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 

51 10 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 


RETURN 

REM ****************** * * ******** 

REM ** SUBRUTINA INTERSECCION ** 

REM ****** ******* *************** 

LET D c 0 
FOft 1-1 TO 10 

IF A*(I t Nl>« M 11 THEN SOTO 2090 
IF A* (I ,N2)- M " THEN SOTO 2090 
LET B% (D+1>=A$ í I t Nl) 

LET D-D+i 
NEXT I 
RETURN 

REM * ****************** | *** ** t ** ** * ** *;* 

REM ** SUBRUTINA DIBUJO INTERSECCION ** 

REN ** ****** *************************** 

PRINT TAS í 1 7 > : ,J INTERSECCION 
PRINT TAB < 17) ; M **************** ****" 

FOR 1=1 TQ 10 

PRINT TAB ( 17 í s 11 * -‘ i TAB í 26) :BIU) i TAB (36? í 1S * “ 

NEXT 1 

PRINT TABU7) 3 " ************** *****«'» 

PRINT 

IF C~ 1 THEN PRINT "LO HAS HECHO MAL'* 

RETURN 

REM ********************* 

REM ** 5UBRUTINA UNION ** 

REM ********************* 

LET D=0 
FOR 1-1 TO 10 

IF ASU,N1K>" 11 THEN LET B4 ÍD+ I ) =A* U , NI ) s SOTO 4000 

IF " THEN LET B$ <D+ I ) =A4 ( I . N2) ; GOTO 4080 

GOTO 4090 

LET D-D+l 

NEXT I 

RETURN 

REM **************************** 

REM ** SUBRUTINA DIBUJO UNION ** 

REM **************************** 

1 UNION " 

'****» ***************" 


PRINT TAB í 1 7 > : 
PRINT TABU7): 
FOR 1=1 TO 10 
PRINT TAB (17); 
NEXT I 

PRINT TABÍ17) : 
PRINT 


" # Lp i TAB f 26) ¡ B* 1 1 ) :TñB<36> ; " * " 

" ******************** " 


IF C= 1 
RETURN 
DATA 14 
DATA 11 
DATA " 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


THEN PRINT 
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Variaciones para MSX 

100 no se pone. 

250 LET NI = INT(RND(1)‘10)+1 
260 LET N2= INT(RND(1)*10)+1 

Variaciones para ZX-SPECTRUM 

100 no se pone. 670 GOTO 9999 

Variaciones para COMMODORE 

90 PRINT CHR$(147) 

100 no se pone. 

250 LET N1=INT(RND(1)N0)+1 
260 LET N2=INT(RND(1)*10)+1 
450 PRINT CHR${147) 

490 PRINT CHR${147) 

610 PRINT CHR$(147) 




Sobre el programa 


Está programado en un BASIC muy ge- 
nera!, que te será muy fácil comprender. 

Consta de un programa principal que 
va llamando a las subrutinas siguientes: 

— Subrutina de dibujo en la pantalla de 
los dos conjuntos iniciales (1000). 

— Subrutina de cálculo del conjunto in- 
tersección (2000). 

- Subrutina de dibujo en la pantalla 
del conjunto intersección (3000). 

— Subrutina de cálculo del conjunto 
unión (4000), 

— Subrutina de dibujo en la pantalla 
del conjunto unión (5000). 
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Los lenguajes 
de programación 
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y 
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AS primeras máquinas elec- 
trónicas de cálculo, antece- 
soras de los ordenadores 
actuales, podían programar- 
se. Sin embargo, la progra- 
mación era muy rudimenta- 
ria y consistía en desembor- 
nar cables de sus posiciones 
y conectarlos en puntos diferentes (esto 
ocurría, por ejemplo, en el ENIAC). La tarea 
era, pues, francamente complicada, y sólo se 
llevaba a cabo para cálculos importantes (lar- 
gos en tiempo). 

Una mejora considerable consistió en 
programar las máquinas introduciendo las ins- 
trucciones en fichas perforadas, El sistema era 
mucho más cómodo (ya que permitía reorde- 
nar las fichas, en lugar de sacar cables y cam- 
biarlos de posición, etc.), Sin embargo, las ins- 
trucciones se daban al ordenador en lenguaje 
máquina (y mediante ceros y unos binarios), 
por lo que la programación resultaba muy 
complicada y sólo posible para aquellas per- 
sonas iniciadas (que debían conocer, además, 
cada modelo de máquina "al dedillo”, ya que 
existían —y aún existen— diferencias conside- 
rables entre una máquina y otra). 

(El lector puede intentar imaginar el 


trabajo desarrollado al introducir al ordenador 
instrucciones complejas en “lenguaje máqui- 
na” de sólo ceros y unos.) 

Los lenguajes de programación o len- 
guajes simbólicos nacen de la necesidad de 
que el hombre se comunique con la máquina; 
su fin primordial es facilitar esa comunicación, 

En los años 50 aparecen los primeros 
lenguajes de programación. Consistían en un 


número limitado de palabras y símbolos. Su 
aportación esencial era la concisión, es decir, 
una única instrucción en un lenguaje de pro- 
gramación supone gran número de instruccio- 
nes en "lenguaje máquina". (Más tarde, el com- 
pilador es el que hace el trabajo de traducir 
a lenguaje máquina las instrucciones del len- 
guaje de que se trate ) 

Estos primeros programas, que facilitan 
el intercambio de información entre máquina 
y hombre, se llaman "ensambladores”. Asocia- 
ban palabras mnemotécnicas para indicar de- 
terminados pasos en la máquina (por ejemplo, 
MVC para mandar el traslado de un dato en- 

¿Sabía usted que... 

En una de las múltiples guerras franco-espa- 
ñolas los españoles utilizaban para mandar sus men- 
sajes una clave muy complicada. Esta clave utilizaba 
casi 600 caracteres y se cambiaba periódicamente, 
resultando muy complicada de utilizar, aunque prác- 
ticamente parecía imposible de descifrar, Enrique IV 
de Francia, hombre práctico (tuvo que convertirse al 
catolicismo para aceptar el trono de su país) cono- 
ció a un abogado y matemático aficionado, Frangois 
Vieta (1540-1603), que tenía fama de resolver proble- 
mas complejos matemáticamente, más por afición 
que por dedicación. El rey le entregó su confianza, 
presentándole un despacho interceptado y pidiéndo- 
le que lo descifrara, Vieta consiguió descifrarlo, uti- 
lizando un algoritmo de aproximaciones sucesivas. 

A partir de ese momento los franceses lograron des- 
crifrar la mayoría de los despachos, sacando enor- 
me provecho de ello. El rey de España, Felipe II, ja- 
más pudo sospechar lo ocurrido, y (desde luego sólo 
lo dice la leyenda negra) se quejó al Papa, alegando 
que los franceses realizaban hechicerías. 
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tre varios puntos de la memoria), en lugar de 
tener que escribir la instrucción completa me- 
diante los ceros y unos binarios (o en hexade- 
cimal). 

Sin embargo, es difícil programar en 
ensamblador sin conocer de forma absoluta la 
construcción lógica del ordenador, es decir, 
sin dominar la máquina hasta sus últimos de- 
talles, y esto hace que cada especialista lo sea 
de una máquina o gama de máquinas en par- 
ticular. 

Los constructores del ordenador pro- 
porcionan el iogicial de base", es decir, el 
conjunto de instrucciones que hacen que el or- 
denador "se pueda utilizar”. En los ordenado- 
res grandes este "logicial de base" puede es- 
tar compuesto por millones de instrucciones. 

En seguida se vio la necesidad de utili- 
zar lenguajes más sofisticados para facilitar la 
tarea de los ordenadores. Así, se empezó a ha- 
blar de lenguajes de alto nivel frente a los len- 
guajes ensambladores. 

En 1 954 la IBM desarrolla un nuevo len- 
guaje con fines científicos: el FORTRAN (fór- 
mula transistor -traductor de fórmulas). Las 
primeras versiones de ese lenguaje tienen 
ciertos problemas que se van solventando en 
las versiones siguientes, pero el lenguaje se 
va decantando cada vez más a ser utilizado 
por aquellos usuarios cuyos problemas sean 
principalmente científicos. 

En 1 956 el Departamento de Defensa de 
los Estados Unidos decide adoptar un único 
lenguaje de programación, que servirá, ade- 
más, para todos los ordenadores de la Admi- 
nistración. Y nace el COBOL (Common Busi- 
ness Oriented Language-Lenguaje Común 
Orientado a los Negocios). En su desarrollo 
también colaboraron algunos constructores de 
ordenadores y usuarios importantes, 

Sin embargo, los lenguajes de progra- 
mación de que hemos hablado no son perfec- 
tos. Y poco a poco se van desarrollando otros 
lenguajes, intentando resolver los problemas 
que presentaban los lenguajes anteriores. 

En 1960 aparece el APL (A Program- 
ming Language-Un Lenguaje de Programa- 
ción), y el ALGOL (Algorythm Language-Len- 
guaje Algorítmico). Estos dos lenguajes se uti- 
lizan generalmente para desarrollar temas 
científicos. 

Realmente, el ALGOL nace de una reu- 
nión en Zurich (Suiza) en la que participan la 
American Asociation for Computer Machines 
y la Asociación Europea de Mecánica y Mate- 
máticas Aplicadas. El objetivo de la reunión es 



ponerse a trabajar en el desarrollo de un len- 
guaje común, simbólico para cálculos científi- 
cos. El lenguaje, que intenta ser universal, se 
llamará ALGOL. La primera versión aparece 
en el año 1960 (ALGOL 60). 


¿Sabía usted que... 

En 1962 se concedió el premio Nobel de Quí- 
mica al profesor Kendrew, de Cambridge, por sus 
trabajos sobre la molécula de mioglobina. La mioglo- 
bina es una protema bastante compleja (no tanto 
como la hemoglobina), y para su estudio era nece- 
sario procesar gran cantidad de información. 

Su importancia en los seres vivos es grande, 
ya que es capaz de unirse libremente a una molécu- 
la de oxígeno y pasar a almacenar este elemento en 
el tejido muscular. 

Naturalmente, químicos, médicos y otros cien- 
tíficos se habían interesado en el ordenador desde 
sus comienzos, y en este tipo de investigaciones re- 
sultaba enormemente útil. 

En investigación de Química Orgánica, por 
ejemplo, la ayuda de un ordenador es fundamental, 
ya que las cadenas de átomos que forman las molé- 
culas orgánicas son muy complejas, pues ofrecen in- 
numerables posibilidades que deben ser analizadas 
una a una. Además, en Química Orgánica es absolu- 
tamente necesario conocer la disposición espacial 
de la molécula para comprender su comportamiento 
(sobre todo, en estas moléculas tan enormes). Como 
la molécula tiene varios miles de átomos, Kendrew 
tardó más de dos años en ir concretando su estruc- 
tura. Trabajó en el ordenador de la Univesidad, el 
EDSAC. Más adelante, con otros ordenadores más 
modernos y potentes, se han llegado a conocer mu- 
chos más detalles específicos de la molécula de mio- 
globina. 
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El objetivo básico de estos lenguajes es 
liberar al programador de preocuparse de las 
condiciones especiales de cada ordenador, y 
permitirle escribir programas de la forma que 
mejor le convenga, La anterior es una buena 
definición de “Lenguaje universal”; es decir, 
un lenguaje que no necesite referirse a cada 
ordenador concreto. (Recordamos al lector 
que el compilador correspondiente traducirá 
el lenguaje simbólico universal al lenguaje 
propio del ordenador específico de que se trate.) 

Los lenguajes de orientación científica 
deben poder utilizar y representar las notacio- 
nes matemáticas, además de no necesitar ape- 
nas explicaciones adicionales. También deben 
ser capaces de describir procesos de cómpu- 
to, y traducir los procesos mecánicos a pro- 
gramas en lenguaje máquina. 

En los primeros años de su aparición el 
ALGOL toma un cierto auge en Europa, intro- 
duciéndose en los países del Este, y tomando 
especial auge en Rusia. 

Sin embargo, su estructura gramatical 
es muy rígida, y su vocabulario es muy esca- 
so. Estas razones hacen que su utilización se 
vaya estabilizando, e incluso decrezca con la 
aparición de otros lenguajes más modernos. 
Además, comercialmente, no tiene mucha uti- 
lidad, ya que es muy difícil de utilizar por per- 
sonal no muy especializado, 

En los años posteriores aparecen otros 
lenguajes, como el RPG (Report Program Ge- 
nerator-Generador de Programas de Infor- 
mes). Había sido desarrollado por IBM para 
sus máquinas de tarjetas perforadas, y su ob- 
jetivo era ayudar a producir fácilmente infor- 
mes. Las tarjetas y tubos quedaron obsoletas, 
pero el RPG se sigue manteniendo, orientado 
a problemas de aplicación general. 

Sin embargo, todos los lenguajes de 
programación antes citados, y que hoy en día 
siguen utilizándose, son muy herméticos, y 
sólo son útiles para fines concretos, utilizados 
por personal muy técnico. 

El primer lenguaje pensado para "ini- 
ciar” a los estudiantes en el mundo fascinante 
de la programación es el BASIC (Beginners All 
Purpose Symbolic Instruction Code -Código 
de Instrucciones Simbólicas de Propósito Ge- 
neral para Principiantes), y para ello hubo que 
esperar a 1964. Fue desarrollado en la Univer- 
sidad de Dartmouth (EE.UU.) durante los años 
60, ya que la Universidad había tomado la de- 
cisión de enseñar informática a todos sus 
alumnos (700 cada nuevo curso). 

El éxito del BASIC fue enorme. Era sen- 


cillo de aprender, y las instrucciones se basa- 
ban en palabras comunes inglesas. Los que lo 
utilizaban y hoy lo utilizan son generalmente 
personas interesadas en la Informática, pero 
no profesionales. En este lenguaje se va pro- 
cesando cada instrucción mediante un “intér- 
prete de BASIC", no existe un compilador que 
traduzca el lenguaje a código máquina, una 
vez establecido el programa. Es la razón por 
la que, aunque el tiempo de programación 
puede ser reducido, el tiempo de máquina es 
bastante mayor que con otros lenguajes. 

El BASIC sigue en primera línea, y su 
éxito va parejo con el crecimiento de los mi- 
croordenadores. Como ya no se trata de pa- 
gar la hora de un ordenador grande a precio 
alto, el consumo de tiempo de máquina pasa a 
tener menos importancia frente a la facilidad 
en la programación. La mayoría de los fabri- 
cantes de "micros" se han decidido por este 
lenguaje, que ha sido mejorado en muchas 
ocasiones. (Incluso existen versiones que pue- 
den ser compiladas.) Desde luego, es el len- 
guaje más conocido por los aficionados. 

No todos los lenguajes de programación 
son americanos. Rebajemos algo el número, y 
digamos que casi todos lo son. Por ejemplo, el 
PASCAL es un lenguaje didáctico europeo, y 
para más señas, suizo. Su creador, Niklaus 
Wirth, un apacible profesor de la Politécnica 
de Zurich, lo diseñó pensando fundamental- 
mente en sus alumnos. Además, este lenguaje 
es susceptible de "crecer", hasta alcanzar la 
"medida” o “talla 11 del usuario, Su nombre es un 
homenaje a Blaise Pascal, matemático y filóso- 
fo francés del siglo XVIII, 

Otro lenguaje didáctico, encaminado a 
resolver problemas algebraicos y gráficos es 
el LOGO, que enseña al estudiante a mover 
una "tortuga" por la pantalla, La "tortuga" escri- 
be líneas, figuras geométricas, etc, Fue crea- 
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do por Seymor Papert en la década de los se- 
tenta. 

¿Sólo existen los lenguajes de progra- 
mación antes mencionados? Desde luego que 
no: los humanos somos complejos, y existen 
casi tantos lenguajes como libros de cocina. 

Para razonar la enorme proliferación de 
lenguajes, existen varias explicaciones, unas 
de orden comercial y otras de orden práctico, 

En el orden comercial, ocurre como con 
los refranes, cada refrán tiene su contrarre- 
frán, y cada individuo puede elegir, según su 
situación, el que más le convenga, Así, “No por 
mucho madrugar amanece más temprano 1 ' y 
"A quien madruga Dios le ayuda", en el orden 
comercial se puede seleccionar entre fabricar 
"compatibles clónicos", o bien ordenadores cu- 
yos compiladores lleven ciertas "particularida- 
des especiales" que los hacen diferentes de 
otros ordenadores de la competencia, Eviden- 
temente, estos ordenadores se han fabricado 
para que no puedan utilizar programas escri- 
tos en un lenguaje que es el que utiliza un 
equipo de la firma "enemiga", De este modo, 
los clientes siempre tienen que utilizar pro- 
ductos de esa misma casa. Este sistema es 
muy antiguo y, como saben los lectores, pro- 
porcionó enormes beneficios a la IBM en sus 
comienzos. (El negocio de las fichas constituía 
una partida importante para la empresa.) 

La segunda razón se basa en la espe- 
cialización, Los lenguajes especializados para 
temas determinados simplifican enormemen- 
te el trabajo de programación, y eso los hace 
más apreciados por el programador dedicado 
a tareas muy concretas. 

Además de las razones antes citadas, 
también puede haber ocasiones en las que un 
determinado lenguaje ocupe mucha parte de 
la memoria del ordenador, mermando consi- 
derablemente sus posibilidades, La solución 
en estos casos consiste, pues, en utilizar otro 
lenguaje que tome menos memoria. 

Existen muchos proyectos de lenguajes 
de programación universales, Que lo sean o 
no lo veremos en el futuro. Sin embargo, gran- 
des constructores y usuarios de informática 
están interesados en proyectos de este tipo, 
Uno de ellos es el proyecto HOL (High Order 


Languaje) —Lenguaje del nivel superior—. 
Uno de sus principales promotores es el De- 
partamento Norteamericano de Defensa. 
¿Otra vez la Defensa? Efectivamente, como re- 
cordará el lector, desde los primeros tiempos 
de la Informática con el EN1AC y otros orde- 
nadores utilizados con fines militares, o al me- 
nos defensivos, el Ministerio de Defensa Ame- 
ricano (entre otros) ha ido adquiriendo un 
enorme parque de ordenadores para sus mu- 
chos organismos. Sin embargo, cada ordena- 
dor se compraba para resolver un problema o 
problemas determinados, y de esto se dedu- 
ce que el conjunto es absolutamente hetero- 
géneo, Evidentemente, la unificación da como 
resultado un ahorro de medios, y ese ahorro 
puede ser considerable. 

En 1977 el Departamento de Defensa de 
los Estados Unidos convocó un concurso mun- 
dial. Después de valorar comparativamente 
los numerosos proyectos de lenguajes univer- 
sales recibidos, que habían elaborado las más 
prestigiosas firmas mundiales, el seleccionado 
fue el desarrollado por C1I Honeywell Bull. Su 
nombre es ADA, en homenaje a Ada Lovela- 
ce, hija del poeta Byron y considerada como 
la primera programadora mundial, 

Otros lenguajes de programación orien- 
tados a trabajos específicos son el LISP y el 
PLANNER, que se utilizan en Inteligencia Ar- 
tificial, aunque el LIPS, por ejemplo, sea un 
lenguaje creado en 1958. 

En Robótica, los lenguajes deben poder 
ser ejecutables en tiempo real, de forma muy 
similar a los utilizados en el control de proce- 
sos industriales, Por la propia naturaleza de los 
problemas a resolver, deben ser lenguajes de 
muy alto nivel. Entre ellos mencionamos e! AL, 
basado en el PASCAL, y desarrollado en la 
Universidad de Stanford, y otros más desarro- 
llados a partir de él como el VAL, etc. 

Entre los lenguajes de propósito gene- 
ral no debemos olvidarnos del PL/1, diseñado 
para obtener las mejores características de los 
lenguajes COBOL y FORTRAN (se trataba de 
obtener un lenguaje que fuera útil en trabajos 
científicos y comerciales). No pensamos que 
este lenguaje haya tenido la repercusión que 
se esperaba. 
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Bases de datos relaciónales 



IZ 



AS Báses de Datos Relació- 
nales (BDR) forman un gru- 
po dentro del conjunto ge- 
neral de los Sistemas de 
Gestión de Bases de Datos 
(SGBD) que, aunque defini- 
das hace muchos años 
(1970-1972), han adquirido 
su desarrollo más modernamente y parece 
que se imponen, junto con otros modelos de 
datos (modelo entidad-relación, representa- 
ción dirigida al objeto, etc.) como el esquema 
de representación y tratamiento de informa- 
ción de los 90. 


Una Base de Datos (BD) es un conjunto 
de datos o informaciones sobre una realidad 
(una empresa u organización, o un área de co- 
nocimientos), almacenada (memorizada) por 
un ordenador, utilizada por numerosos usua- 
rios y cuya organización está regida por un 
modelo de datos. 


El informe ANS1-PARC de 1976 conside- 
raba que una Base de Datos debe satisfacer 
cinco criterios: 


1, Buena representación del mundo 

real. 

— Imagen fiel de la realidad. 

— Información fiable y actualizada. 

2, Información no redundante. 

— Cada dato debe aparecer una sola 
vez (situado en un solo sitio) dentro del con- 
junto de la BD. 

3. Independencia de los programas 
de aplicación respecto de los datos. 

4. Seguridad y confidencialidad de 
los datos. 


— Seguridad física (contra la destruc- 
ción y contra la introducción de errores). 

— Protección contra accesos indebidos 
por parte de personas no autorizadas. 

5. Alta calidad de las aplicaciones y 
sistemas de consulta. 

— Posibilidad de respuestas rápidas. 

— Organización específica para mejo- 
rar los tiempos de tratamiento. 

Se suelen definir tres niveles de mode- 
lización de los datos: 

1. Nivel externo, Representa la visión 
de los datos que tiene el utilizador de los da- 
tos. Esta visión es, por su propia naturaleza, 
parcial e incompleta. Por otro lado, hay tantos 
modelos de datos como utilizadores: cada uno 
maneja solamente una parte de los datos y de 
un modo específico, aunque, sin embargo, 
haya zonas comunes en que los datos se sola- 
pan. 

2. Nivel conceptual. Es la síntesis de 
todos los modelos externos. En teoría, se supo- 
ne que tal modelo conceptual existe y, por tan- 
to, que los modelos externos de cada utiliza- 
dor son como versiones particulares de este 
modelo conceptual genérico, 

3. Nivel físico. De hecho, los modelos 
conceptuales teóricos no pueden ser llevados 
a la práctica en una máquina, pues los equi- 
pos de que disponemos tienen limitaciones de 
tamaño, de capacidad de proceso, etc, De ahí 
surge la necesidad de estudiar cómo el SGBD 
almacena los datos y los procesa. No se dispo- 
ne nunca del software necesario para que 
cree un diseño físico que se adecúe al mode- 
lo conceptual definido, pero modernamente 
los SGBD son sumamente flexibles y permiten 
una gestión eficaz de los datos. 
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Históricamente, se suele hablar de tres 
generaciones de SGBD: 

1. a generación (finales de los sesenta). 

Incluye los modelos básicos de gestión 
diseñados en un principio: 

a) Modelos jerárquicos en que la es- 
tructura de los datos se expresa con la ayuda 
de una jerarquía arborescente. 

El sistema más representativo de este 
grupo es el IMS (cuyo Lenguaje de Manipula- 
ción es el DL1). 

b ) Modelos en red. Desarrollados de 
acuerdo con la especificación CODASYL, per- 
miten una clara separación entre la lógica y la 
física. En esta línea, los sistemas más repre- 
sentativos son el IDMS (IBM), el IDS-II (Honey- 
well) y SOCRATE (Bull). 

2. a generación (desde finales de los 
setenta), 

Constituida por los modelos relacióna- 
les, En estos sistemas, la información se repre- 
senta en forma tabular, 

Existe una independencia total entre la 
lógica y la física, Hay cantidad de productos 
industriales disponibles en esta línea: ORA- 
CLE, FOCUS, INGRES, D-BASE III, etc, 

3. a generación (desde hoy en día). 

Se están ampliando hoy los modelos de 
representación hacia estructuras más comple- 
jas, incluyendo el tratamiento de datos multi- 
media (sonido, imagen, texto), el tratamiento 
de bases de datos lógicos, bases de datos de- 
ducibles... 

Hoy por hoy* este tipo de SGBD son es- 
clusivamente experimentales. 


Las bases de datos relaciónales aportan 
un conjunto de características muy intere- 
sante: 

a) Utilizan estructuras de datos muy 
simples (tablas) y que se adecúan al sistema 
de manejo de datos usual, 

b) Facilitan a programadores y gesto- 
res de la Base, lenguajes de alto nivel (4. a gene- 
ración). 

c) Posibilitan una gran independencia 
entre los datos y sus tratamientos. 

d) Permiten modelos de utilízador di- 
ferentes de las relaciones básicas implanta- 
das. 

Las BDR se basan en tres elementos fun- 
damentales: un soporte de la información (ta- 
bla), unas operaciones (relaciónales o de con- 
juntos) y un estricto sistema de normalización. 


1. El concepto fundamental en una 
BDR es la llamada "relación" de datos, plasma- 
da en una "tabla". La tabla representa la infor- 
mación básica, organizada bajo unos epígra- 
fes o atributos y sustituye a los “registros" de 
los sistemas tradicionales de soporte de la in- 
formación, 

Un ejemplo de tabla convencional es el 
siguiente: 


N° de 
producto 

Nombre 

Cantidad 

stock 

Precio 

unitario 

Precio 

total 

102 

Enchufe 

50 

318 

15.900 

105 

Clavija 

67 

240 

20.880 

106 

Múltiple 

95 

302 

28.690 

109 

Interruptor 

150 

515 

77.250 


La tabla, como se ve, está organizada en 
filas u ocurrencias del registro (llamadas tam- 
bién "tupias") y en columnas. En cada columna 
se agrupan todos los tipos de campo iguales 
de cada tupia (que responden a un determi- 
nado atributo: “nombre”, “n. 6 de producto”, 
etcétera), A cada campo (un determinado atri- 
buto —columna— de una determinada tupia 
—fila—) se le llama elemento. "Grado" de la re- 
lación es el número de columnas de la tabla. 
La "cardinalidad” representa el número de fi- 
las de la tabla. 

Sin embargo, las tablas deben tener al- 
gunas condiciones especiales para ser mane- 
jadas adecuadamente en el sistema relacional: 

— Cada tabla sólo puede tener un tipo 
de información (registro): sus filas y columnas 
deben ser uniformes. (Aunque la BDR, gene- 
ralmente, tendrá muchas tablas.) 

— No se permiten datos duplicados. De 
hecho, cuando aparece alguna fila o columna 
duplicada como resultado de una operación, 
el propio sistema la elimina, 

— Los valores que toma cada campo 
(atributo) en una fila de la tabla deben limitar- 
se a un conjunto concreto llamado “dominio”. 

— El orden en que aparecen los datos 
en la tabla es irrelevante, 

2. Las operaciones de manejo de las 
tablas en un sistema de BDR son de dos tipos: 

— Operaciones relaciónales, 

— Operaciones de conjuntos. 

2.1, Operaciones relaciónales son la 
restricción o selección, la proyección y la 
unión o concatenación. 
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— La restricción o selección consiste 
en la construcción de otra tabla, seleccionan- 
do algunas filas de la tabla original mediante 
un adecuado criterio de selección. Por ejem- 
plo, mediante el criterio PRECIO < 305 se ob- 


tendría la tabla: 

M. 3 * * & de 

Nombre 

Cantidad 

Precio 

Precio 

producto 

stock 

unitario 

total 

106 

Múltiple 

95 

302 

28.690 

105 

Clavija 

87 

240 

20,880 


{Obsérvese que el orden de las filas es 
irrelevante y el resultado estará ordenado 
como aparece en la tabla o en otro orden cual- 
quiera,) 

— La proyección es la construcción de 
otra tabla (a partir de la original) mediante la 
selección de ciertas columnas, 

Una proyección sobre “valores totales”, 
a partir de la tabla dada, originaría la siguien- 
te tabla resultado: 


N.° de 
producto 

Nombre 

Precio 

total 

102 

Enchufe 

15.900 

106 

Múltiple 

28,690 

109 

Interruptor 

77,250 

105 

Clavija 

20.880 


— La unión o concatenación produce 
otra tabla relacionando dos atributos (uno de 
cada tabla) por coincidencia. 

Así, por ejemplo, se puede concatenar 
la tabla dada con otra de "clientes de cada pro- 
ducto". 


N.° de 
producto 

Cliente 

Población 

Teléfono 

105 

Pérez 

Madrid 

345 67 12 

105 

López 

Bilbao 

415 34 77 

109 

Pérez 

Madrid 

345 67 12 

106 

Martínez 

Sevilla 

671 43 25 

109 

Martínez 

Sevilla 

671 43 25 

102 

López 

Bilbao 

415 34 77 


Para dar la siguiente tabla: 


N.° de 
producto 

Nombre 

Cantidad 

stock 

Precio 

unitario 

Precio 

total 

Cliente 

Población 

Teléfono 

105 

Clavija 

87 

240 

20.880 

Pérez 

Madrid 

345 67 12 

105 

Clavija 

87 

240 

20.880 

López 

Bilbao 

415 34 77 

106 

Múltiple 

95 

302 

28.690 

Martínez 

Sevilla 

671 43 25 

102 

Enchufe 

50 

318 

25.900 

López 

Bilbao 

415 34 77 

109 

Interruptor 

150 

515 

77.250 

Pérez 

Madrid 

345 67 12 

109 

Interruptor 

150 

515 

77.250 

Martínez 

Sevilla 

671 43 25 


2.2. Operaciones de conjuntos. 

Normalmente, en los sistemas BDR se 
admiten también operaciones de conjuntos: 
unión, intersección y diferencia, entre las rela- 
ciones o tablas que forman la BDR. Además, 
es usual que se maneje el producto cartesiano 
(o una cierta restricción de él). Para todas es- 
tas operaciones, las tablas son consideradas 
como matrices a unir, intersecar, etc. 

3. La normalización. 

La presentación sin restricción alguna 
de las relaciones o tablas en un sistema de 
BDR llevaría a ciertas dificultades: podría apa- 

recer información redundante, podría perder- 

se información en alguna operación relacional, 
etcétera. Para evitarlo, se hace necesario nor- 
malizar las tablas de la BDR. 


Producto Desarrollado por: Año 


ADABAS 

SOFTWARE AG 

1972 

DATACOM/DB 

ADR 

1974 

CA-UNIVERSE 

COMPUTER ASSOC. 

1980 

DG SOL 

DATA GENERAL 

1984 

DMS 2 

BURROUGHS 

1972 

DB 2 ‘ 

IBM 

1983 

IDMS/R 

CULLINET 

1972 

INGRES 

RTI 

1980 

M1MER 

MIMER 

1982 

ORACLE 

ORACLE 

1979 

RAPPORT 

LOGICA 

1976 

RELATE 3000 

CRI 

— 

SQL/DS 

IBM 

1980 

TIS 

CINCOM 

1983 

ULTRA 

CINCOM 

1983 

(Fuente: Guide Européen des Progiciels.) Sistemas de 

Gestión de Bases de Datos (SGBD) que se ofrecen en el 

mercado como " 

sistemas relaciónales". 
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TEMAS MONOGRAFICOS DE VANGUARDIA 


Producto 

Eq, material (Hardware) 

Logical (Software) 

ADABAS 

IBM 360 - 30XX 

DOS.MVS, 


Compatibles 

VM, XA 

DATACOM/BD 

IBM 360 - 30XX 

DOS.MVS, VM 


Compatibles 

XA 

CA-UN1 VERSE 

IBM 370 - 30XX 

DOS,MVS,VM 


Compatibles 

XA 

DG SOL 

ECLIPSE 

AOS 

DMS 2 

B1000 - B7000 Serie A 

MCP 

DB 2 

IBM 370 - 30XX 

MVS.XA 

IDMS/R 

IBM 360 * 30XX 

DOS.MVS, VM 


Compatibles 

XA 

INGRES 

DIGITAL VÁXJBM,..' 

VMS, UNIX,.. 


IBM 370 - 43XX,BULL,CDC, 

MVS,VM,DOS 


DIGITAL 

VMS, NOS, 

GCOS 

ORACLE 

IBM 370 - 30XX, VAX, 

VM,MVS,VMS,RSX 


DG,,,. 

AOS,UNIX,„. 

RAPPORT 

IBM 370 - 30XX.VAX.BULL, 

VM.MVS.VMS, 


PRIME 

GCOS 8.UNIX 

RELATE 3000 

HP 3000 

MPE 

SQL/DS 

IBM 43XX - 30XX 

VSE, VMS 

TIS 

IBM 370 - 30XX 

DOS.MVS 

ULTRA 

DIGITAL VAX 730 - 780 

VMS 


Equipos (material y logical) sobre los que están implementados los principales SGBD relaciónales, 


Se han establecido tres formas norma- 
les para las relaciones (tablas) de las BDE (las 
formas normales 4. a y 5. a son muy específicas 
y no merece la pena detallarlas). 

Una relación está en primera forma nor- 
mal (PFN) si no incluye ningún grupo repeti- 
tivo, Además, se cumple que en una relación 
que esté en PFN los dominios de sus atributos 
no tienen elementos que sean, a su vez, con- 
juntos, Una relación está en segunda forma 
normal (SFN) si, estando en PFN, todos sus atri- 
butos dependen de la clase completa y no sólo 
de una parte de ella, 

Por último, la tabla estará en tercera for- 
ma normal si está en SFN y, además, todas las 
dependencias funcionales establecidas lo son 
respecto de la clave; es decir, si todos los atri- 
butos de la relación dependen sólo de la cla- 
ve y no de algún otro atributo. 


Hay que reseñar, por último, que exis- 
ten desarrolladas las llamadas máquinas de 
Bases de Datos (MBD). Son, en esencia, máqui- 
nas diseñadas especialmente para soportar las 
estructuras y los modos de trabajo de los 
SGBD, Normalmente, las MBD son el centro de 
algún sistema de ordenadores más sofistica- 
dos y están, por tanto, “rodeadas” de otros 
equipos que las auxilian: estos otros ordenado- 
res reciben las peticiones de información del 
usuario y las transcriben a los lenguajes pro- 
pios del SGBD; y reciben las respuestas y las 
preparan para su adecuada presentación al 
usuario. Entre las MBD hay algunas (ADABAS, 
por ejemplo), que se soportan en equipos con- 
vencionales (o compatibles) comerciales; otras 
(IDM 500, por ejemplo) son máquinas especí- 
ficas cuya arquitectura está especialmente 
pensada con esta finalidad. 
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TERMINOLOGIA 


GLOSARIO DE TERMINOS 
UTILIZADOS CON LAS BASES 
DE DATOS RELACIONALES 


Atributo, Cada uno de los “campos" o aparta- 
dos de que consta cada anotación (ocurren- 
cia o tupia) que aparece en una tabla. Los 
atributos de cada tupia aparecen en colum- 
nas encabezadas por el nombre del atributo. 

BD. Se utilizan estas siglas para referirse a las 
Bases de Datos. 

BDR. BD relaciona! 

Campo. Cada elemento de la tabla. Se utiliza 
más este nombre por similitud con los com- 
ponentes de un registro (asimilable a una 
fila de la tabla) de los sistemas convencio- 
nales de almacenamiento y recuperación 
de datos. 

Cardinalidad. Cardinalidad es el número de 
filas o tupias que aparecen en una tabla re- 
presentativa de una relación. 

Concatenación. Una de las operaciones re- 
laciónales. Consiste en la reunión de dos ta- 
blas o relaciones a través de un atributo co- 
mún, basándose en la similitud de valor de 
dicho atributo en las diferentes tupias de la 
relación. 

Diferencia. Operación de conjuntos, El re- 
sultado de la diferencia de los conjuntos 
A y B (A-B) es el conjunto de los elementos 
de A que no están en B. 

Dominio. También llamado "dominio de dis- 
curso". Conjunto de los valores que puede 
adoptar una variable. En la teoría relacional 
se utiliza para definir el ámbito de defini- 
ción de los valores que puede adoptar cada 
atributo, 

Elemento. Campo que aparece en el cruce 


de una filia (o tupia) y una columna (o atri- 
buto) de una tabla. 

Formas normales, Presentación especial de 
las tablas representativas de las relaciones 
en una BD relacional. Se utilizan las formas 
normales para definir las relaciones, con el 
fin de evitar duplicidades, pérdida de infor- 
mación, etc. Suelen utilizarse tres formas 
normales (1. a a 3. a ) llamadas PFN, SFN, TFN. 

Grado. Grado es el número de columnas de 
la tabla que representa una relación. Coin- 
cide con el número de atributos de la tabla, 
que es igual al número de elementos de 
cada tupia. 

Intersección. Operación de conjuntos. La in- 
tersección de los conjuntos A y B está for- 
mada por el conjunto de los elementos que 
pertenecen simultáneamente a A y a B. 

MBD. Máquina de Base de Datos. Estructura 
(física) de ordenador(es) electrónicos para 
la más eficaz impiementación de un sistema 
de Gestión de Bases de Datos (SGBD), Es un 
computador específicamente diseñado con 
esta finalidad. 

Modelo. Paradigma de representación del 
conocimiento para la adecuada estructura- 
ción de los datos, En los SGBD, en genera! 
se utilizan modelos jerárquicos, en red, re- 
laciónales, de entidad-relación, basados en 
clases-objeto, etc, Cada modelo de repre- 
sentación suele llevar emparejado un len- 
guaje adecuado para el tratamiento de los 
datos. 

Objeto, representación dirigida al. Mo- 
delo de representación de la información 
muy utilizada modernamente. Existen traba- 
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jos que reúnen las ideas del modelo objeto 
con el modelo relaciona! para su mejor efi- 
cacia. 

Ocurrencia. Cada aparición de una unidad 
de datos en una relación. Aparece repre- 
sentada como una fila en la tabla correspon- 
diente a dicha relación. 

Producto cartesiano. Operación de conjun- 
tos. El producto cartesiano de los conjuntos 
se construye combinando los elementos de 
uno de los conjuntos con los del otro, En los 
diferentes SGBD relaciónales se suelen fa- 
cilitar herramientas para realizar algunas 
variantes del producto cartesiano, 

Proyección, Operación relacional. Consiste 
en la obtención de una tabla reducida a par- 
tir de otra dada, por extracción de ciertas 
columnas (atributos) de ella. 

Registro. Unidad de información de un fiche- 
ro de datos, En las BD relaciónales se da 
este nombre a cada una de las ocurrencias 
de un tipo de datos (o fila de la tabla). 

Relación. Elemento básico de una BD rela- 
cional. Es el conjunto homogéneo de datos 
existente sobre una materia. Viene repre- 
sentado por una tabla de filas y columnas, 
Normalmente se utilizan de un modo indis- 
tinto los nombres de tabla y relación. 


Restricción. Operación relacional. También 
se llama selección. Ver Selección. 

Selección. Operación relacionai. Consiste en 
la creación de una tabla reducida (a partir 
de una dada) por extracción de algunas fi- 
las (o tupias) de la primitiva, de acuerdo con 
un criterio dado. 

SGBD. Sistema de Gestión de Bases de Datos, 
Conjunto formado por el modelo de repre- 
sentación de los datos, las herramientas 
para su implementación y un lenguaje para 
su fácil manejo por los usuarios, 

Tabla. Plasmación gráfica de una relación, en 
un sistema relacional, A veces se usa en vez 
de relación. Ver Relación, 

Tupia. Cada una de las ocurrencias (filas o re- 
gistros) de una tabla representativa de una 
relación. Tiene tantos elementos como atri- 
butos se consideren en la relación. Su lon- 
gitud (en campos) define el grado de la re- 
lación. 

Unión. Operación relacional. Se da a veces el 
nombre de unión a la concatenación. Ver 

Concatenación. 

— Operación de conjuntos. Unión o reunión 
de los conjuntos A y B, es el conjunto forma- 
do por todos los elementos que están en A 
o en B, o en ambos. 
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VOCABULARIO DE INFORMATICA 


Búsqueda. Localización de un dato. General- 
mente se refiere a la localización de un re- 
gistro en un fichero, o un sector o una pista 
en un disco. 

Búsqueda binaria. Método de búsqueda 
que se aplica a ficheros clasificados, El sis- 
tema consiste en ir efectuando divisiones en 
dos partes iguales, y buscar el elemento de 
que se trate en una de ellas, Una vez loca- 
lizado en una de las partes, ésta se vuelve 
a dividir y se repite la operación. Es un mé- 
todo de búsqueda relativamente rápido, 

Búsqueda dicotómica. (Ver Búsqueda bi- 
naria.) 

Búsqueda secuencial. Método de búsque- 
da que consiste en inspeccionar los elemen- 
tos del fichero partiendo del primero hasta 
alcanzar el elemento deseado. Es un siste- 
ma muy lento, pero en ciertos casos, si el ar- 
chivo está estructurado en forma secuen- 
cial, es el único posible. 

Byte. Conjunto de bits a los que se considera 
formando una unidad. Normalmente son 
más cortos que una palabra. Habitualmente 
se considera el byte de 8 bits. 

Byte por segundo. Medida de la velocidad 
de una transmisión, Se refiere al número de 
bytes transferidos en un segundo. 

Cabecera, a) Encabezamiento de un impre- 
so o informe, b) Información que se da al 
contenido de un bloque de datos. 

Cabeza, a) Puede referirse a una cabeza de 
grabación magnética (diskette, disco duro o 
cassette) para escribir datos en esos dispo- 


sitivos o leerlos, b) A la cabeza de escritura 
de una impresora, 

Cabeza de lectura/escritura. Dispositivo 
consistente esencialmente en unos bobina- 
dos sobre núcleos especiales, dedicada a 
leer o escribir datos. (Véase Cabeza.) 

Cabrestante. Polea muy especializada y pre- 
cisa que arrastra la cinta magnética (en uni- 
dades de cinta o cassettes). Su precisión es 
fundamental para la grabación y posterior 
recuperación de los datos. (Los carretes 
donde se arrolla la cinta no controlan en ab- 
soluto el movimiento de ésta.) 

Caché, memoria. Memoria inmediata. Se 
utiliza como memoria de almacenamiento 
intermedio en ordenadores grandes, gene- 
ralmente, Sirve para reducir tiempos de ac- 
ceso a la memoria central. 

CAD (Computer Aided Design). Diseño 
Asistido por Ordenador. Paquetes gráficos 
en los que el diseño se realiza con un ter- 
minal de ordenador. Los dibujos se almace- 
nan en ficheros recuperables para ser me- 
jorados, etc. También disponen de algunos 
programas de cálculo. En resumen, consti- 
tuyen una ayuda completa para el proyec- 
tista, realizando tanto cálculos como gráfi- 
cos, (Véase CAM y CAD/CAM.) 

CAD (Conversor Analógico Digital). Dis- 
positivo que convierte señales analógicas (o 
continuas) en digitales (o discontinuas). 
Existe otro dispositivo que realiza la acción 
inversa, el Conversor Digital/ Analógico. 

CAD /CAM. Sistema integrado que reúne un 
paquete de diseño asistido (CAD) y otro de 
fabricación asistida por ordenador (CAM). 




VOCABULARIO DE INFORMATICA 

Cadena. Sucesión de caracteres que se toma 
como unidad para utilizarla en algún pro- 
ceso. 

Cadena, búsqueda de. Técnica en la que 
cada elemento contiene un identificador 
que permite la localización del siguiente 
elemento. 

Cadena, lista, listado. Lista de elementos 
que pueden estar dispersos, en la cual cada 
uno de ellos contiene un identificador que 
permite la localización del siguiente ele- 
mento a considerar. 

Cadencia. Demora producida por la ejecu- 
ción de una operación de entrada/salida, y 
almacenaje o presentación de un dato. 

CAE (Computer Aided Education). Ense- 
ñanza Asistida por Ordenador. Paquetes de 
enseñanza interactiva en las que el ordena- 
dor colabora con el profesor. Por ejemplo, 
para aprender a escribir a máquina el alum- 
no va escribiendo un texto que aparece en 
la pantalla, Terminado éste, el ordenador 
cuenta el número de palabras y el número 
de fallos. Si el alumno ha superado ese ni- 
vel, pasa al nivel siguiente. Si no lo ha supe- 
rado, generalmente se repite la secuencia. 

CAL (Computer Aided Learning). Apren- 
dizaje Asistido por Ordenador. Semejante a 
CAE. (Véase CAE.) 

Calculadora, a) Dispositivo de proceso de 
datos diseñado especialmente para realizar 
operaciones aritméticas. Normalmente sue- 
le requerir la intervención frecuente de un 
operador, b) Dispositivo que lleva a cabo 
todo tipo de operaciones digitales, aritméti- 
cas y lógicas. 

Cali (llamada). Se utiliza: a) Para transferir 
el control a una subrutina específica, b) En 
comunicaciones, operaciones necesarias 
para conectar dos estaciones. Utilización 
del canal de conexión entre ellas, 

CAM (Computer Aided Manufacturing). 

Fabricación Asistida por Ordenador. Siste- 
ma informático de planificación y control de 
fabricación. Suele estar integrado con un 
sistema de diseño asistido, formando un 
CAD/CAM. (Véase CAD.) 


CAN, Se refiere al carácter de cancelar, 
CANCEL, 

Camino, a) Especificación completa de un fi- 
chero dentro de un subdirectorio en el sis- 
tema operativo MS-DOS. b) Vía lógica para 
la transferencia de datos. Sinónimo de canal 
lógico. 

Campo. Parte de un registro que contiene un 
dato individual. Por ejemplo, un fichero de 
una biblioteca tiene registros, cuyos cam- 
pos pueden ser los siguientes: título, autor, 
tipo de libro, fecha de publicación, etc. 


Canal, a) En transmisión de datos, vía de co- 
municación entre la unidad central y los pe- 
riféricos, tanto en sentido físico como lógi- 
co, b) Zona de un dispositivo de almacena- 
miento que es accesible a determinada es- 
tación de lectura o escritura, 

Capstan. Dispositivo de las unidades de cin- 
ta magnética de los ordenadores electróni- 
cos. (Véase Cabrestante.), 

Carácter. Letra, dígito u otro símbolo cual- 
quiera que se utiliza en la organización, con- 
trol o representación de los datos. Pueden 
ser las letras del alfabeto, los números, sig- 
nos de puntuación, caracteres especiales 
de control, etc, 

Carácter de control. Carácter pertenecien- 
te al conjunto de caracteres de un determi- 
nado equipo, que produce un efecto espe- 
cial determinado. 

Carácter, frontera de. En reconocimiento 
de caracteres, el mayor rectángulo uno de 
cuyos lados sea paralelo al borde de refe- 
rencia del documento y cuyos otros dos la- 
dos sean tangenciales a una línea de carac- 
teres especificada. 

Caracteres gráficos. Subconjunto del jue- 
go general de caracteres utilizado específi- 
camente en la creación de gráficos. Son uti- 
lizados en paquetes gráficos y sirven para 
ir componiendo ios gráficos y dibujos, colo- 
cándolos uno junto a otro, etc, El ordenador 
los considera y utiliza como si fueran cade- 
nas de caracteres normales, 
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